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PREFACE 


SIKSCRIPT  II  is  a  general  programming  language  that  should  be  of 
Interest  to  people  in  the  data  pro.  jing  and  computer  programming 
community,  particularly  those  involved  Irk  the  simulation  of  industrial, 
military,  and  social  systems. 

RAND's  principal  interest  in  developing  SIMSCRIPT  II  was  to  en¬ 
hance  the  discrete-event  simulation  capability  of  both  RAND  and  its 
clients.  The  language  has  been  designed  to  facilitate  the  simulation 
of  large,  complex  systems,  and  to  reduce  the  total  time  spent  in  de¬ 
signing,  programing,  and  testing  simulation  models.  Design  and 
development  have  been  carried  out  in  two  stages:  language  design 
and  compiler  implementation.  This  Report  describes  the  SIMScRIPT  II 
language  only;  its  companion  study,  P.  J.  Kiviat,  H.  J.  Shukiar , 

J.  B.  Urman,  and  R.  Villanueva,  The  SIMSCRIPT  II  Programing  Lan¬ 
guage:  IBM  360  Implementation ,  RM-5777-PR,  describes  RAND's  IBM  360 
Implementation  of  the  language. 

In  developing  SIMSCRIPT  II,  user  considerations  were  paramount. 

For  this  reason,  the  language  is  free-form  and  Englisn-like.  Also, 
its  compiler  is  "forgiving,"  in  the  sense  that  it  corrects  a  large 
percentage  of  user  syntax  errors  and  forces  execution  of  every  com¬ 
plete  program  that  is  submitted.  The  combination  of  a  free-form, 
English-like  language,  a  forgiving  compiler,  and  forced  program  exe¬ 
cution  greatly  reduces  the  number  of  times  a  program  must  be  submitted 
to  get  it  to  perform  properly.  To  make  the  process  even  more  efficient, 
a  number  of  debugging  statements  and  program  control  features  aie  also 
provided. 
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SUHKARY 

SIMSCR1PT  II  is  a  rich  and  versatile  computer  programming  la.iguap** 
designed  primarily  for  discrete-event  simulation  applications,  but 
equally  well  suited  to  general  programming  problems.  This  Report, 
which  describes  the  SIMSCRIPT  II  language,  is  divided  into  chapters 
corresponding  to  language  "levels,"  which  provide  a  functional  path 
through  the  language: 

Level  1 :  A  simple  teaching  language  designed  to  introduce  pro¬ 
gramming  concep-s  to  nonprogrammers. 

Level  2:  A  language  roughly  comparable  in  power  with  FORTRAN, 
but  departing  greatly  from  it  in  specific  features. 

Level  3:  A  language  roughly  comparable  in  power  to  ALGOL  or 
PL/I,  but  again  with  many  specific  differences. 

Level  4:  That  part  of  SIMSCRIPT  II  that  contains  the  entity- 
attribute-aet  features  of  SIMSCRIPT.  These  features 
have  been  updated  and  augmented  to  provide  a  more 
powerful  list-processing  capability. 

Level  5:  The  simulation-oriented  part  of  SIMSCRIPT  II,  containing 
statements  for  time  advance,  event  and  activity  pro¬ 
cessing,  generation  of  statistical  variates,  and  *■*'-•*- 
mulation  and  analysis  of  simulation-generated  data. 

Except  for  some  basic  knowledge  concerning  what  a  computer  is  and  what 
a  programing  language  translator  (compiler)  does,  no  prior  computer 
education  or  programming  knowledge  on  the  reader's  part  has  been 
assumed.  As  a  result,  the  Report  will  not  have  equal  appeal  to  all 
readers.  Professional  programmers  will  find  It  slow  reading  at  first; 
novices  mev  wish  it  read  more  slowly.  To  reduce  the  discomfort  of 
either  too  slow  or  too  rapid  a  pace  through  all  of  SIMSCRIPT  II,  we 
suggest  a  selective  path  through  the  Report.  Sections  that  are  un¬ 
usually  difficult  or  contain  features  of  powerful  but  limited  use  are 
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marked  with  an  asterisk,  and  should  probably  be  skipped  on  first  read* 
ing  by  all  but  the  most  professional  of  programmers  —  who  will  probably 
want  to  read  these  sections  first  to  see  what  SIMSCRIFT  II  has  to  offer. 

Since  SIMSCRIPT  II  is  a  "large"  language,  this  is  a  long  document. 
The  authors  hope  its  lf'.gth  is  justified  by  the  mode  of  presentation 
chosen,  which  meets  the  need  for  a  teaching  as  well  as  a  reference 
manual.  Once  this  Report  has  been  mastered,  RM-5776-PR,  The  SIMSCRIPT 
II  Programing  Language:  Reference  Manial  will  he  a  useful  guide. 

Since  this  Report  documents  a  language  rather  than  an  implemen¬ 
tation,  still  another  work  is  required  to  describe  the  operational 
characteristics  of  the  RAND  IBM  360  SIMSCRIPT  II  compiler.  This  work. 
The  SIMSCRIPT  II  Prograurring  Language:  IBM  360  Implementation , 
Rtt-5777-PR,  describes  the  specific  features  of  the  IBM  360  compiler, 
the  procedures  necessary  for  its  use,  the  error  messages  it  generates 
during  compilation  and  execution,  and  so  on. 
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Chapter  1 

SIMSCRIPT  II:  LEVEL  1 


1-00  INTRODUCTION 

A  computer  program  is  a  list  of  instructions  that  direct  a  com¬ 
puter  to  perrorm  certain  tasks.  A  computer  language  is  a  special  set 
of  symbols  that  a  programmer  uses  to  write  programs.  A  SIMSCRIPT  II 
program  is  a  computer  program  written  in  the  SIMSCRIPT  II  programing 
language.  Here  is  a  simple  example  of  a  SIMSCRIPT  II  program: 

READ  X,  Y  AND  Z 
ADD  X  +  Y  TO  Z 

PRINT  1  LINE  WITH  Z  AS  FOLLOWS 
X  +  Y  +  Z  =  **** 

STOP 

This  program  consists  of  four  SIMSCRIPT  II  statements .  The  statements 
are  instructions  to  (1)  read  the  values  of  three  variables  called  X, 

Y,  and  Z  from  punched  cards,  (2)  add  these  variables  together,  (3) 
print  the  sum  of  the  variables,  along  with  the  label  X  +  Y  +  Z  «,  and 
(4)  stop.  They  illustrate  the  basic  computer  operations  of  input 
(reading  data),  computation,  and  output  (printing  results). 

1-01  VARIABLES 

As  shown  in  the  above  example,  programs  use  names  as  identifiers 
to  refer  to  values  of  program  variables.  A  program  statement  such  as 
ADD  X  TO  Y  means  ADD  the  value  of  X  TO  the  value  of  Y.  Since  computer 
programs  often  require  more  than  26  variables  (tie  letters  A  through 
Z) ,  SIMSCRIPT  II  uses  combinations  of  letters  and  digits  for  variable 


names. 
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A  name  is  any  combination  of  letters  and  digits  —  A  through  Z 
and  0  through  9  —  that  contains  at  least  one  letter.  For  example, 

X,  COST,  COSTOFX,  SIZE,  MAN3,  PARTI,  AC COUNTS RECEIVABLE,  5Y,  and  1A 
are  all  legal  names,  whereas  27,  1,  and  4.6  are  not. 

Variable  roes  refer  to  nunbers  that  are  stored  Internally  In 
the  computer;  variable  values  may  be  whole  numbers  (Integers)  or  num¬ 
bers  with  a  fractional  part  (decimal  nuabers).  The  value  of  a  variable 
X  may  be  0  or  125  or  16.72  or  -0.00001  or  whatever  number  we  assign 
to  It.  From  here  on,  whenever  a  variable  name  Is  used,  It  is  with  the 
understanding  that  It  refers  to  the  value  of  a  variable  (a  niaaber 
stored  in  the  computer)  and  not  to  the  name  itself. 

At  the  start  of  program  execution,  all  variable  values  are  set 
equal  to  xero.  These  variables  are  said  to  be  "Initialised  to  zero." 

1-02  CONSTANTS 

Frogram  statements  often  use  numbers  directly,  such  as  the  "2"  in 
ADO  2  TO  SUM,  or  the  number  "3.14"  In  SUBTRACT  3.14  FROM  VOLUME.  These 
numbers  are  called  oonetante  When  used,  they  refer  to  their  literal 
values;  they  do  not  represent  other  values. 

Constants  may  take  on  the  same  numerical  values  as  variables,  and 
may  be  used  Interchangeably  with  them  in  all  computations.  Constants 
differ  from  variables  In  that  their  values  cannot  be  changed.  ADO  5 
TO  4  is  not  a  legal  use  of  the  constant  4,  because  it  is  tantamount  to 
trying  to  change  the  value  of  4  to  9;  ADO  5  TO  X  is  a  legal  use  of  the 
variable  X  and  the  constant  5. 

Whole  numbers  and  fractional  rna&ers,  signed  or  unsigned,  are 
allowed  as  constants.  Where  equivalent  representations  of  a  number 
exist,  they  have  the  same  value;  2.5,  >2.5,  and  002.500  all  .present 
the  i si  number.  The  statements  ADO  -1  TO  COUNTER,  ADD  -1.00  TO 
COUNTER,  and  SUBTRACT  1  FROM  COUNTER  all  have  the  same  effect. 

1-03  ARITHMETIC  EXPRESSIONS 

Arithmetic  expreeeione  are  formed  by  combining  variables  and  con¬ 
stants  with  arithmetic  operators.  The  arithmetic  operators  are : 
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+  (add),  -  (subtract),  *  (multiply),  /  (divide),  and  **  (exponentiate). 

Tiro  of  these  operators,  ♦  and  -,  can  be  uaed  aa  unary  operators, 
that  is,  with  a  single  variable  or  constant.  The  conatants  +1  and 
-1  are  examples  of  the  use  of  +  and  -  as  unary  operators  on  the  con¬ 
stant  1.  All  of  the  operators  can  be  used  as  binary  operators,  that 
is,  with  two  variables  (or  constants,  or  a  variable  and  conatant). 

If  ve  let  A  and  B  represent  either  a  variable  or  a  constant,  then: 

(1)  +  A  and  -  A  are  uaes  of  +  and  -  as  unary  operators. 

(2)  A  t  h,  A  *  B,  A  /  B,  A  **  B  are  exaaples  of  arithmetic 
expressions  that  use  binary  operators. 

The  simplest  expression  consists  of  a  single  constant,  or  a  single 
variable,  perhaps  preceded  by  a  unary  +  or  -  operator.  An  expression, 
+A,  may  be  written  as  A,  wich  the  unary  plus  implied.  This  is  not 
possible,  of  course,  vith  the  unary  minus  operator. 

All  operators  must  be  explicitly  expressed,  and  no  two  operators 
can  appear  consecutively.  For  example,  multiplication  of  the  variables 
A  and  B  must  be  written  as  A  *  B,  and  not  AB.  The  latter  would  be 
Interpreted  aa  the  valua  of  a  variable  called  AB.  Addition  of  the 
expressions  A  and  -B  can  be  written  as  A  +  (-B)  or  A  -  B,  but  not 
A  +  -B. 

This  last  example  shows  that  parentheses  must  be  uaed  to  separate 
unary  and  binary  operators.  Parentheses  may  alao  be  used  (1)  to  clarify 
the  operations  in  an  expression  so  as  to  make  it  more  readable,  or  (2) 
specify  the  order  in  which  the  operations  in  an  expression  are  to  be 
performed.  Sit^pls  gxpntticm*  can  be  connected  by  any  of  the  arithmetic 
operators  (♦,  -,  *,  /,  to  form  cx^powid  expnttions .  The  "paren¬ 
theses  rule"  states  that  axpresslons  are  evaluated  from  left  to  right, 
removing  parentheses  before  applying  operator  hierarchy  rules.  Imbedded 
parentheses  are  evaluated  from  the  inside  out.  Thus: 

(1)  a  *  (b*c)  ♦  d  la  evaluated  by  first  computing  (b*c)  a a 
the  value  of  an  inttrmadiate  axpresslon  e,  and  then  bv 
evaluating  the  expression  a  ♦  e  -*•  d. 

(2)  a  ♦  (b/(c  ♦  (d*e)))  la  evaluated  by  first  computing 
x  •  (d*e),  then  y  •  (c  ♦  x),  then  t  •  (b/y),  then 
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Whert  parentheses  sre  omitted,  the  hierarchy  of  operatlona  is: 

a.  Exponentiation  ** 

b.  Multiplication  and  division  *  and  / 

c.  Addition  and  subtraction  +  and  - 

This  hierarchy  specifies  the  order  in  vhlch  the  different  operations 

are  performed  relative  to  one  another.  Exponentiation  is  performed 

before  multiplication  or  divlaion,  and  either  of  these  before  addition 

or  subtraction.  For  example,  the  expresaion  A+B/C+D**E*F-G  is  taken 

£ 

to  mean  A  +  (B/C)  +  (D  *  F)  -  G.  If  precedence  is  not  completely 
specified  by  these  rules,  the  operator  farthest  to  the  left  in  the 
expression  is  performed  first,  as  in  A*B/C,  which  is  computed  as 
(A  *  B)  /  C. 

An  expression  is  written  as  a  string  of  variable  names,  constants, 
arithmetic  operators,  and  parentheses.  Any  number  of  spaces  from  zero 
upward  may  be  used  to  separate  the  parts  of  an  expression,  A+B,  A+  B, 

A  +  B  and  A  +B  being  treated  identically.  The  exponentiation  opera¬ 
tor,  **,  is  treated  as  a  single  unit  and  no  spaces  may  appear  between 
its  two  asterisks.  Some  example  expressions  are: 


(1) 

PRICE 

a  variable 

is  Itself  an  expression 

(2) 

(PRICE) 

parentheses 

are  optional 

(3) 

DUEIN-DUEOUT 

(4) 

PRICE  *  QUANTITY 

(5) 

PRICE  *  (ORDER-SALE) 

parentheses 

change  precedence  order 

(6) 

53 

a  constant 

la  an  expression 

(7) 

A  ♦  B  ♦  C  ♦  D 

(8) 

X  **  2 

in  mathematical  notation  this  Is 

(9) 

A  ♦  X  2  ♦  X  ♦*  4 

(9)  and  (10)  sre  identical 

(10) 

A  ♦  (X  **  2)  ♦  (X  **  <) 

(11) 

X  ♦  Y/Z 

(i2) 

(X  ♦  Y)  !l 

this  is  not 

the  same  as  (11) 

(13) 

-A**B 

means  -(A®) 
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1-04  LOGICAL  EXPRESSIONS 

Arithmetic  expression*  can  be  used  with  relational  (yperaters  to 
fora  logical  expressions  that  are  either  true  or  false.  A  logical 
expression  is  formed  by  Joining  two  arithmetic  expressions  with  a 
binary  relational  operator.  The  relational  operators  are: 

•  equal 

+  not  equal 

<  less  than 

<_  leas  than  or  equal 

>  greater  than 

>_  greater  than  or  equal 

When  a  logical  expression  is  encountered  during  the  execution  of 
a  program,  current  values  of  the  variables  in  its  arithmetic  expres¬ 
sions  are  used  to  determine  its  truth  or  falsity.  Thus,  if  X  *  1  and 
Y  -  0,  the  logical  expression: 

X  -  Y  is  false 

X  ^  Y  is  true 

X  <  Y  is  false 

X  +  Y  -  X  *  Y  is  false 

For  readability  in  different  contexts,  SIMSCRIPT  II  provides 
alternate  ways  of  writing  logical  expressions .  Table  1-1  relates  the 
mathematical  symbol  of  each  relational  operator  with  keypunch  symbols, 
English  abbreviations,  and  "literary  English"  equivalents  permitted 
in  SIMSCRIPT  II  comparisons. 

Unless  the  keypunch  symbols  (colvmm  2)  are  used,  each  relational 
operator  must  be  separated  from  the  arithmetic  expressions  on  either 
side  by  a  parenthesis,  or  at  least  one  blank  colissn. 

Typical  logical  expressions  are: 

a.  Y  >  0 

b.  AGE  LESS  THAR  RETIREMENT 

c.  CODE  NOT  EQUAL  TO  ZIP 

d.  LEVEL  LT  THRESHOLD 

*.  (FIXED  ♦  NUWER  *  UNITS)  GREATER  THAN  LOttlD 

f.  A  GE  (8  *  X  •*  2  ♦  3.57/C) 

g.  (X  **  2  *  Y  **  2)  GREATER  THAN  Z  **  2 

h.  X  **  2  ♦  Y  **  2  '  Z  **  2 


Table  1-1 


RELATIONAL  OPERATORS 


Permitted 

Permitted 

Mathematical 

Keypunch 

Engliah 

"Literary  Engliah" 

Symbol 

Syvfeol 

Abbreviation 

Equivalent 

m 

m 

EQ 

EQUAL  TO 

EQUALS 

4 

y  m 

NE 

NOT  EQUAL  TO 

< 

< 

LS 

LESS  THAN 

LT 

> 

> 

GR 

GREATER  THAN 

GT 

< 

<  • 

LE 

NO  GREATER  THAN 

NOT  GREATER  THAN 

» 

>  m 

GE 

NO  LESS  THAN 

NOT  LESS  THAN 

Examplaa  e  and  f  daaonatrate  that  arithmetic  exp ratal one  may  be 
ancloeed  in  parentheeea  without  chancing  their  meaning.  Examp lea  g  and 
h  llluetrate  the  uae  of  equivalent  forme  of  a  relational  operator. 

1-05  READING  DATA  FROM  PUNCHED  CARDS 

Specific  numerical  valuta  can  be  aaelgned  to  program  varlablae 
by  reading  n\abare  (data)  from  punched  carda.  An  example  of  the  READ 
etatement  that  done  thle  la: 

READ  X.  Y  AND  QUANTITY 

X,  Y,  end  QUANTITY  ere  variable  naaee.  They  are  ueed  in  thla  atate- 
mant  in  a  variable  vvw  litt . 

In  general  a  SIK5CHIPT  II  lift  coneleto  of  a  etring  of  quantltlee 
eeperated  by  either  a  cornea,  or  the  word  ANO,  or  a  coamu  followed  by 
the  word  AMO.  Some  examplee  of  llate  aa  they  might  appear  in  READ 
etatemante  are; 

READ  PRICE,  QUANTITY.  OISCOUNT 
READ  PLACE  AND  01  STANCE 
READ  NAME,  DATE,  PLACE  ANO  TINE 
READ  NAME,  AND  DATE.  PLACE  ANO  TINE 
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The  general  fora  of  e  READ  statement  is 

READ  variable  name  list 

When  s  READ  sCeteaent  is  executed  In  e  SIMSCRIPT  II  program,  aa  many 
numbers  are  read  froa  data  carde  as  there  are  variable  nasms  listed 
in  the  stateaent.  Successive  numerical  values  are  read  and  assigned 
to  corresponding  variables  in  the  READ  liat.  The  mmbers  c«n  be  punched 
in  the  cards  in  Integer  or  declaal  fora;  e.g.,  the  punched  numbers  5, 
S.O,  and  5.000  are  equivalent.  Numbers  aunt  be  separated  froa  one 
another  by  at  least  one  blank  col«,  A  number  is  also  terminated  at 
the  end  of  a  card. 

Successive  READ  stateaents  do  not  necessarily  read  new  data  cards, 
as  SlfBCRIPT  II  prograaa  treat  input  data  aa  a  continuous  stream  of 
numbers.  The  location  of  a  number  on  a  card  is  not  considered. +  The 
following  example  llludtrates  this  "free  fora"  concept. 

READ  X,  Y,  Z  sets  X  ■  3,  Y  ■  2.1  and  Z  ■  67.33  when  each  of 
these  data  card  sets  is  read: 

(1)  card  1  3.0  2.1  67.33 

(2)  card  1  3.00 

card  2  2.1  67.33 

(3)  card  1  3 

card  2  2.1 

card  3  67.33 

A  READ  statement  is  often  the  first  stateaent  encountered  in  a 
program,  since  it  is  typically  used  for  assigning  initial  values  to 
program  variables.  It  is  also  used  for  reading  in  new  values  during 
the  course  of  computation. 

1-09  SKTPF I KG  IHVAKTSP  DATA 

Data  cards  often  contain  more  information  than  we  want  to  use  in 
a  program,  as,  for  example,  when  prepunched  cards  are  obtained  from 
someone  else. 

j 

The  magnitude  of  a  number  is  considered,  however,  since  a  digital 
computer  can  only  store  numbers  that  lie  within  a  limited  range  and 
that  have  a  limited  precision.  Numbers  that  exceed  these  Halts  cause 
SIM5C1IFT  II  prog.am*  to  stop  when  an  attest  is  mdc  to  read  them. 

These  limits  vary  with  the  computer  employed. 
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The  SKIP  statement  simplifies  the  task  of  skipping  unwanted  data. 
A  statement  of  the  form 

SKIP  e  FIELDS 

passes  over  e  data  fields.*  The  arithmetic  expression  e  is  rounded 
to  an  Integer  If  necessary.  If  it  is  negative  it  Is  treated  as  an 
error,  causing  the  program  to  terminate.  For  example; 

SKIP  2  FIELDS 

skips  the  next  two  data  fields,  and 

SKIP  I/J  FIELDS 

skips  no  data  fields  If  I/J  Is  equal  to  0,  skips  .3  fields  If  I/J  ■ 

2.7,  or  4  fields  If  I/J  -  4.13. 

When  a  data  field  (value)  la  read,  the  SIMSCRIPT  II  system  waits 
at  the  end  of  the  data  field  In  preparation  for  the  next  READ  state¬ 
ment.  Hence,  when  a  field  at  the  end  of  a  data  card  Is  read,  the 
card  la  retained  until  the  next  READ  statement  la  executed. 

The  SKIP  statement  can  also  be  used  to  skip  ''he  remainder  of  a 
current  data  card  when  It  Is  written  as 

SKIP  1  CARD 

An  equivalent  statement 

START  NEW'  CARD  or  START  NEW  IN?irT  +  t  CARD 

la  somewhat  more  descriptive. 

The  SKIP  card  statement  can  be  generaliied  to  the  form 

SKIP  e  CARDS  or  SKI?  e  INPUT**  CARDS 

In  which  case  the  current  Jata  card  and  the  following  f  -  1  cards  are 
bypassed.  If  the  expression  (e)  Is  zero,  no  cards  are  skipped;  If  It 
is  negative,  the  prograa  terminates  with  an  error  message.  Kxawple: 


* 

Data  fields  are  contiguous  strings  of  characters  separated  by 
at  least  one  blank. 

The  word  INPUT  Is  optional.  If  not  uaad  It  le  implied. 


*4 


9 


SKIP  3  CARDS 

ejecta  the  current  data  card  and  aklpa  over  the  next  two  data  carda. 

1-07  COMPUTING  VARIABLE  VALUES 

One  way  of  assigning  a  value  to  a  variable  la  to  uae  a  READ  state¬ 
ment.  A  second  way  la  to  uae  a  LET  statement.  The  general  fora  of 
thla  atateaant  la: 

LET  variable  »  arithmetic  expreation 

aa  In  the  atateaenta 

LET  X  »  0 

LET  X  -  (Y  ♦  1 } / 1 5 

LET  PRICE  «  QUANTITY  *  SALESPRICE 

LET  BALANCE  »  STOCK  -  PURCHASE 

LET  UNITCOST  =  TOTALCOST/NUMBEROFUNITS 

LET  E  -  I*R 

When  a  LET  atatement  la  executed,  the  current  values  of  the 
variables  on  the  right  of  the  equals  symbol  (•)  are  used  to  compute 
the  value  of  the  arithmetic  expression,  and  then  this  value  la  assigned 
to  the  verlable  on  the  left  of  the  equals  symbol. 

Used  thla  way,  the  equals  symbol  la  not  r  relational,  but  an 
oaaignmer.t  operator.  The  statement  LET  X  *  Z  ♦  I  says  nothing  about 
the  equality  of  the  variable  X  and  the  expression  Z  ♦  T .  It  expresses 
a  command  to  evaluate  Z  ♦  1  and  assign  this  quantity  as  the  nev  value 
of  X.  In  the  statement 

LET  X  -  1*2 

the  value  of  the  expression  1*2  Is  computed  and  assigned  to  the  vari¬ 
able  X.  The  previous  Vulue  of  X  Is  replaced  by  the  n-?v  value;  and  In 

LET  X  -  X  ♦  ! 

a  nev  value  of  X  Is  computed  by  adding  1  to  the  current  value  of  V 
and  assigning  this  nev  value  to  X. 

:-:s  srsiiALiiri  r:  y  ."iTwr.-- 


The  ADO  and  SUBTRACT  statements  sre  used  to  add  or  subtract  the 
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value  of  an  arithmetic  expression  Co  or  from  e  program  verleble. 

Their  action  Is  like  Chet  of  the  LET  statement,  the  difference  being 
that  an  arithmetic  operator  Is  Incorporated  In  the  statements  them¬ 
selves.  The  statement  fores  are: 

ADO  arithmetic  expreeeion  TO  variable 
SUBTRACT  arithmetic  expreeeion  FROM  variable 

The  statements  are  equivalent  to  the  LET  statements: 

LET  variable  •  variable  ♦  arithmetic  expreeeion 
LET  variable  ■  variable  -  arithmetic  expreeeion 

The  AW)  and  SUBTRACT  statements  have  the  virtue  of  being  easy  to  vrlte 
and  straight  forward  In  meaning.  Some  examples  of  these  statements  ere 

ADO  1  TO  COUNTER 
ADO  I7lK*C0$T  TC  BILL 
SUBTRACT  3*X  ♦  6*Y  FROM  Z 
SUBTRACT  COST  FROM  CASH 

1-09  A  PROGRAM  01  CARDS  AND  THE  FLOV  OF  COMPUTATION 

SDCCRIfT  II  programs  are  composed  of  sequences  of  conventionally 
arranged  symbols,  some  of  which  are  standardised  key  words  such  as  LET 
and  READ ,  others  of  which  are  prograamar-conatructed  variable  names 
and  numerical  constants.  The  basic  symbolic  units  that  the  SIMSCXIPT 
II  costlier  recognises  la  scanning  program  statements  are  names  am* 
numbers ,  the  special  characters  ♦,  -,  *,  /,  ** ,  (,  ),  ',  >,  <,  j, 

< ,  ?,  !,  :,  ;,  1, -i  ,  A,  $,  9,  #„  and  the  punctuation  marka 

period,  comma,  and  blank.  Sections  1-01  and  1- 02  described  how  namee 
and  (umbers  are  formed,  and  Secs.  1-0 J  and  1-04  illustrated  the  use 
of  some  special  characters.  Except  for  passing  mentions,  the  punc¬ 
tuation  marks  period,  comma,  and  blank  have  not  been  discussed. 

SIHSCXIFT  II  Ignores  all  periods  written  st  the  end  of  n ernes  and 
numbers.  Whils  a  pregrasaasr  may  wish  to  uat  tsrminsl  period#  to 
clarify  or  droea  up  a  program,  they  are  ctr  ipped  from  all  name#  and 
ntmbere  during  compilation.  Thus  the  nare  JACK...  is  interprets^  as 
JACK,  end  the  number  S.  ee  S;  the  names  DOT,  DOT.,  ana  DOT..,  whils 
looking  different,  ere  ell  treated  the  same .  Natural  It,  this  does 
not  apply  to  periods  ueod  within  numbare,  as  in  5.6  and  ?457.§S6. 
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Commis  are  required  In  some  places  in  SlfCCRIPT  II  statements  and 
optional  in  othera.  In  particular,  they  are  required  between  items  in 
a  Hat  e f  any  sort,  and  optional  after  the  logical  condition  of  an  IF 
statement. ^  Whenever  a  cosma  say  oi  Boat  be  uaed  in  a  particular 
statement,  lta  uae  la  made  clear  in  the  section  of  the  text  that  de- 
finea  the  gtateaene. 

Since  SIMSCRIPT  IT  stateaents  are  not  written  in  any  specific 
format,  but  spaced  across  and  between  pinched  cards  as  a  prograaaMr 
wishes,  blanks  ere  needed  to  separate  words  (nats,  nuabers,  and  key 
words)  in  stareaents.  Two  adjacent  atateaent  words  aaist  always  be 
separated  by  at  least  one  blank  unless  ore  of  thea  is  a  special  char¬ 
acter.  Thus,  LET  X  ■  Y  can  be  written  as  LET  X*7  but  not  as  LETX*Y, 
and  IF  (SIGN  ♦  5)  IS  GREATER  THAN  DELTA  can  be  written  as  IF(SIGN+5) 

IS  GREATER  THAN  DELTA  but  not  as  IF(SIGN+5) ISGREATERTHANDELTA.  Merely 
looking  at  &  atateaent  usually  aakes  it  clear  whether  a  blank  is  needed 
or  not.  Since  uultlple  blanks  are  treated  as  single  blanks,  blank 
characters  can  be  freely  used  to  lap rove  the  readability  of  stateaents, 
as  many  of  the  illustrations  in  this  Report  demonstrate. 

Stateaents  can  be  punche 1  as  desired  on  cards,  with  one  slight 
restriction.  A  statement  can  be  written  on  more  than  one  card,  or 
several  statements  can  be  written  on  the  saae  card,  but  statement 
words  (names,  numbers,  and  kwy  words)  cannot  be  spilt  between  cards. 

The  only  effect  of  this  Is  to  restrict  names  and  constants  to  80  or 
fewer  characters.  (Reemabcr  that  the  exponentiation  symbol  **  le  a 
single  unit  and  cannot  be  aplit.) 

Normally,  computation  proceeds  from  statement  to  statement  In 
the  order  In  which  statements  phvslcally  appear  In  a  program  deci  . 

For  example.  In  the  four-statement  exaa^ie  on  r.  1,  the  program  first 
executes  the  REAO  statement,  then  the  ADO  statement,  then  the  PRINT 
statement,  and  halta  when  It  reaches  'he  STOP  statement. 

It  Is  possible  tc  alter  the  otherwise  straightforward  flow  of 
computation  by  using  a  statement  that  directs  e  program  tv 


This  statement  la  dlacussed  In  See.  I-IJ. 


t  rena  fer 
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to  a  labeled  statement  (Sec.  1-11) ,  or  that  specifies  alternate  pro¬ 
gram  paths  contingent  on  the  truth  of  a  logical  expression  (Sac.  1-12). 

A  statement  is  labeled  by  putting  a  name  before  it,  enclosed  in 
single  quotation  marks.  This  name  is  called  the  label  of  the  state¬ 
ment,  and  reference  to  the  label  is  understood  as  reference  to  the 
statement.  Thus  in  the  program  fragment 

'HERE'  LET  A  «  0 


GO  TO 


HERE 


GO  TO  THERE 


'THERE'  LET  A  =  0 

the  specified  transfers  are  to  the  statements  LET  A=0. 

A  l,bel  name  can  be  anv  combination  of  letters  and/or  digits. 

Some  possible  label  names  are: 

' READNEXTDATACARD1  'X'  '1' 

■PARTI'  'SIMSCRIPT'  '12345' 

'COMPUTE'  ' A1 2345 ' 

1-10  CLARIFYING  comments  in  a  program 

Wherever  it  appears  that  a  clarifying  remark  would  be  helpful  to 
the  reader,  a  comment  should  be  used.  A  comment  is  any  string  of 
characters  enclosed  in  double  quotation  marks  ('')  on  the  left,  and 
by  either  double  quotation  marks  (''}  or  the  end  of  a  punched  card  on 
the  right.  Comments  can  appear  anywhere  in  a  program  except  within 
a  word;  they  serve  no  function  other  than  documentation.  We  strongly 
recommend  the  liberal  use  of  comments  wherever  the  intent  of  a  program 
is  not  completely  clear  from  its  SIMSCRIPT  II  command  description. 

Some  examples  of  coiiments  are: 
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(a)  READ  X,  Y  "INDEPENDENT,  DEPENDENT  VARIABLES 

(b)  READ  DOLLARS  "CASH  FLOW",  EQUITY  "PROPERTY  VALUE 

(c)  IF  X  EQUALS  Y,  ADD  X  TO  SUM  GO  TO  SUCCESS 
OTHERWISE  "TAKE  REMEDIAL  ACTION"  GO  TO  ERROR 

(d)  STOP  "NORMAL,  NON-ERROR  STOPPING  POINT 

1-11  CHANGING  THE  FLOW  OF  COMPUTATION  BY  DIRECT  ORDER 

If  a  label  has  been  defined  somewhere  in  a  program,  the  flow  of 
computation  can  be  directed  to  the  statement  named  by  the  label  by 
using  the  GO  TO  statement.  Tills  statement  19  of  the  form 

GO  TO  'label'  or  GO  TO  label 

Quotation  marks  are  mandatory  when  a  label  is  defined  (i.e.,  when  It 
appears  in  front  of  a  referenced  statement)  but  optional  when  used  in 
a  GO  TO  statement.  The  word  TO  is  also  optional.  The  ability  to 
direct  the  flow  of  control  within  a  computer  program  is  often  conve¬ 
nient  and  frequently  essential.  A  simple  example  of  a  GO  TO,  based 
on  the  program  of  p.  1,  reads  a  set  of  data  cards  instead  of  only 
one  card: 

'READ'  READ  X,  Y,  Z 
ADD  X  +  Y  TO  Z 

PRINT  1  LINE  CONTAINING  Z  AS  FOLLOWS 
X  +  Y  +  Z  =  **** 

GO  TO  READ 

The  program  returns  to  the  statement  labeled  'READ'  after  it  has 
finished  printing,  and  continues  to  do  so  until  all  the  data  cards 
are  read,  since  an  attempt  to  READ  a  card  when  there  are  no  data  auto¬ 
matically  terminates  a  program.^ 

1-12  CHANGING  THE  FLOW  OF  COMPUTATION  BY  LOGICAL  EXPRESSIONS 

Additional  power  to  transfer,  namely  "branching  capability,"  is 
incorporated  in  a  statement  that  enables  a  programmer  to  alter  the 
flow  of  computation  based  on  the  current  value  of  a  logical  expres¬ 
sion.  The  IF  statement  tests  the  truth  or  falsity  of  a  logical  expres¬ 
sion  and  branches  (transfers)  accordingly.  The  general  form  of  the 


t 


See  Sec. 


3-10 i  program  termination  on  end-of-file. 
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IF  statement  is 

IF  logical  expression  group  of  statements  REGARDLESS 

as  in 

IF  NUMBER  >  N**2  LET  FLAG  ■  0  ADD  NUMBER  TO  SUM  REGARDLESS  LET  A  •  5 

If  the  logical  expression  is  txnte,  the  statements  between  the  logical 
expression  and  the  word  REGARDLESS  are  executed,  and  then  control  is 
passed  to  the  statements  following  the  word  REGARDLESS.  Of  course, 
a  GO  TO  statement  can  be  used  to  direct  control  to  some  other  point 
in  the  program  if  this  is  required.  If  the  logical  expression  is 
false ,  the  expressions  in  this  group  are  bypassed  by  control  being 
transferred  to  the  statement  following  the  word  REGARDLESS.  The 
words  ELSE,  ALWAYS,  and  OTHERWISE  may  be  used  as  equivalents  for 
REGARDLESS.  Often  the  different  shades  of  meaning  effected  by  these 
words  aid  in  transmitting  the  Intent  of  a  program. 

A  logical  expression  of  the  form  expression  relational  operator 
expression  can  be  written  as  expression  IS  relational  operator  expres¬ 
sion.  Examples  are: 

X  IS  EQUAL  TO  Y 

AGE  IS  GREATER  THAN  27 

LIMIT  IS  NO  LESS  THAN  LOW 

SPACE  IS  NOT  EQUAL  TO  VOLUME 

The  addition  of  the  word  IS  Improves  the  readability  of  IF  state¬ 
ments.  Some  sample  uses  of  IF  statements  are: 

(a)  To  read  a  set  of  100  numbers  and  add  together  those 
numbers  greater  than  5. 

'READ'  ADD  1  TO  COUNT 

IF  COUNT  >  100  GO  TO  FINISH 
ELSE  READ  N 

IF  N  IS  GREATER  THAN  5  ADD  N  TO  SUM 
REGARDLESS  GO  TO  READ. 

•FINISH'  ''CONTINUE  PROGRAM" 

(b)  To  read  a  set  of  200  numbers  and  sum  all  those  numbers 
greater  than  or  equal  to  5  in  one  group,  and  all  the 
numbers  less  than  5  in  a  second  group. 
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'READ'  ADD  1  TO  COUNT 

IF  COUNT  >  200  GO  TO  FINISH 
ELSE  READ  N 

IF  N  IS  NO  LESS  THAN  5  ADD  N  TO  SUM’ 

GO  TO  READ 

OTHERWISE 

ADD  N  TO  SUM2  GO  TO  READ 
'FINISH'  "CONTINUE  PROGRAM" 


(c)  To  test  for  *n  "end  of  date”  signal. 

•READ'  READ  N 

IF  N  EQUALS  0  GO  TO  FINISH 
OTHERWISE  ADD  N  TO  SUM 
GO  TO  READ 

'FINISH*  PRINT  1  LINE  WITH  SUM  AS  FOLLOWS 
**♦.**  IS  THE  VALUE  OF  THE  SUM. 
STOP 


(d)  A  data  processing  test. 

IF  SUM  IS  LESS  THAN  SUMTOTAL 

IF  X  IS  GREATER  THAN  HI  GO  TO  H 
ELSE  IF  X  IS  LESS  THAN  LO  GO  TO  L 
OTHERWISF 

OTHERWISE 
ADD  X  TO  SUM 


This  program  is  represented  in  flow  chart  forn  as: 


Start 
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As  shewn,  IF  statements  can  be  "nested"  by  putting  IF  statements  within 
statement  groups  of  other  IF  statements.  When  this  is  done,  a  simple 
indenting  and  alignment  of  statements  is  advised  to  make  the  flow  of 
control  clear.  The  following  program  Illustrates  this;  notice  how 
each  IF  is  aligned  in  a  card  column  with  the  OTHERWISE  (or  ELSE  or 
ALWAYS  or  REGARDLESS)  that  matches  it. 


IF  X  IS  LESS  THAN  A 

IF  Y  IS  LESS  THAN  B 
LET  Z  «  A  ♦  B 
REGARDLESS 

GO  TO  'AT 

OTHERWISE 
GO  TO  ' A2' 


Grammatically,  the  IF  statement  often  seems  to  ask  for  a  comma 
as  in:  IF  X  *  Y,  GO  TO  'READ'  or  IF  AGE  EXCEEDS  LIMIT,  STOP.  For 
this  reason,  an  optional  comma  is  permitted  in  the  IF  statement  after 
the  logical  expression. 

The  true  branch  of  the  IF  statement,  l.e.,  the  statement  group 
executed  if  the  comparison  is  true,  can  contain  any  number  of  SIMSCRIPT 
II  statements.  The  only  qualification  on  this  group  Is  that  it  must 
be  self-contained  with  respect  to  other  IF  statements  that  appear 
within  it,  since  each  IF  la  matched  with  a  corresponding  OTHERWISE, 
as  left  parentheses  are  matched  with  right  parentheses  in  an  expres¬ 
sion.  An  unmatched,  or  out-of-place  OTHERWISE  can  change  the  meaning 
of  a  program.  In  tne  above  examples  containing  nested  IF  statements c 
note  that  each  IF  has  a  matching  OTHERWISE. 


1-13  DISPLAYING  THE  RESULTS  OP  COMPUTATION 

The  PRINT  statement  has  been  used  in  eeverel  exeoplee  to  display 
titles  and  labeled  computational  results.  This  statement  has  two 
major  forms,  either 

PRINT  i  LINES  AS  FOLLOWS 

or 

PRINT  i  LINES  WITH  arithmetic  expression  liet  AS  FOLLOWS 

followed  by  i  lines  of  descriptive  text  and  format  information.  The 
line  count  i  is,  of  course,  a  positive  integer  constant.  If  i  •  1 
the  word  LINE  can  ke  used  instead  of  LINES.  Equivalents  for  the  AS 
FOLLOWS  portion  of  the  statement  are  THUS,  and  LIKE  THIS.  Sample 
PRINT  statements  are: 

PRINT  2  LINES  AS  FOLLOWS 
PRINT  1  LINE  THUS 

PRINT  2  LINES  WITH  X  AND  Y  LIKE  THIS 

PRINT  4  LINES  WITH  X,  X**2,  Y,  Y**2,  X*Y,  N  AS  FOLLOWS 

The  i  lines,  called  format  lines ,  that  follow  the  PRINT  state¬ 
ment  can  contain  as  many  as  80  columns  of  textual  information  and 
formats  for  arithmetic  expressions  whose  values  are  to  be  printed. 
There  can  be  either  text,  or  formats,  or  both  in  any  format  line. 

The  length  of  a  format  line  is  measured  as  the  number  of  columns  from 
column  1  to  the  last  nonblank  column  in  the  line. 

Textual  information  appearing  in  format  lines  is  printed  exactly 
as  it  appears;  thus,  the  statement 

PRINT  1  LINE  AS  FOLLOWS 
. THIS  IS  A  SAMPLE  FORMAT  LINE . 

prints  a  single  line  of  output  containing  the  above  message.  The 
statement , 

PRINT  2  LINES  THUS 

SUMMARY  REPORT 


INCOME  DATA 


EXPENSE  DATA 
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prlnta  two  linos  of  output  as  they  appear  oa  tha  format  cards.  Any 
character  except  an  aaterisk  (*)  or  a  parallel  (|)  can  appear  In  a 
format  card  as  a  textual  message;  blanks  are  "printed"  as  empty  columns. 

When  PRINT  statements  are  used  to  display  the  value  of  arithmetic 
expressions,  the  expressions  are  listed  in  the  PRINT  statement,  and 
descriptive  formats  ere  provided  for  their  values.  The  expressions 
are  first  evaluated,  and  then  printed  in  the  display  formats  in  left- 
to-rlght  order.  The  statement 

PRINT  1  LINE  WITH  X,  Y,  X/Y,  N**2  AS  FOLLOWS 
X  .  **.*,  Y  ■  **.*,  X/Y  •  **.**,  N  SQUARED  -  **** 

evaluates  tha  expressions  X,  Y,  X/Y  and  N**2  and  displays  their  values 
according  to  the  format  rulea  shown  in  Table  1-2. 

Tha  variables  PRICE  and  ITEMS  appearing  in  the  following  PRINT 
statements  are  assumed  to  have  the  values  100.899  and  27,  respectively. 

(a)  PRINT  1  LINE  WITH  PRICE/ITEMS  THUS 

PRICE/ITEM  -  $*.*** 

la  printed  as 

PRICE/ITEM  -  $3,737 

(b)  PRINT  1  LINE  WITH  PRICE/ITEMS  AS  FOLLOWS 

PRICE/ITEM  -  $*.** 

is  printed  as 

PRICE/ITEM  -  $3.74 

(c)  PRINT  3  LINES  WITH  PRICE,  ITEMS, PRICE/ ITEMS  THUS 

PRICE  •  $***.* 

ITEMS  -  * 

PRICE/ITEM  •  $*.*** 

is  printed  as 

PRICE  •  $100.9 
ITEMS  -  27 

PRICE/ITEM  -  $3,737 

When  several  values  are  to  be  printed  contiguously,  tha  single 
parallel  (|)  is  used  in  place  of  an  aaterisk  to  terminate  a  format  on 
the  left.  If  this  is  not  done,  two  contiguous  formats  merge  into  one 
soother.  Thus  two  contiguous  three-digit  Integer  fields  can  be 
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Table  1-2 

FORMAT  COBVnrriOWS  USED  Dl  PRDTT  STATEMENT 


la  Ufa* 


Ml 


4—1—1 


hwIlM 


kUailtlil 


*FUal 


a. a 


klM 


(a)  Mat  aa  la 

<t)  If  th 


aal»a| 

la  aat  latagar 


valaae,  prlat  a 
valaa  tf  aMtaa  ♦  at  -  0.5  (a  (ha 
aalsa  af  tha  afnatlai,  4apaa4- 
lag  a*  ita  alga,  a*4  cjaautlag 
(ha  raaalt; 

(a)  (fill  aa  aa—  Alglu  aa  paaalhla 
ta  cha  laft,  up  (a  (ha  aaa(  a— - 
aaaaaaadva  *  air  taahial  charac- 
(ac ,  traadag  (ha  rt#M«(  aa 
(ha  laa  irlaf  paaldaaj  If  aa( 
a« ((la last  ayaaa .  aaa  aataadftc 
aatatUa; 

(4)  aalp  (ha  paaltl—  a(  (ha  rl^K- 

aaa(  41  (U  ■■(  ha  ahaaa. 


MUST  1  UK  mnjfwt 

tk  ml  is  or  j  is  *• 

prlata ,  bt  J-J 

ns  ml  is  or  j  is  s 

ar  frtau,  Car  W.7 

TK  Mils  or  j  IS  10 

ar  prlata ,  Car  J*  -C7.C 
IK  ML  IS  Of  J  IS-tt 


(a)  Wit  a 


l  aalaai 


(W  craa(  (ha  la  (agar  part  aa  (a) 
mi  (4  ahaaa| 

(a)  raaa4  tha  4aal— l  part  ta  (ha 
aalMt  »(  ilglta  apacl(t«4  *ap 
•atari aha  ta  tha  rlgt  af  tha 
OatMaal  palat;  aa  a— raaalaa  ta 
rmhf  la  the  a*  latlaal  plaaa 
tf  <441*4  0. 5*10*a{- a)  n4  tnat 
a  dag  at  (ha  a*  reel— I  placaj 

(4  It  trnlllag  4ml— 1  41  pit  a  era 

aaaa,  prlai 


(rill  a 


lat 


*>daa 


friit  a  Irattlwal  aalaa 
0  a4  1 


(4  Mm  a 
Mai— I 


la  hi 

IlUi 


(4  tha  vaUe  •(  —a  aagi 
praaataa  la  Mai— l  a 


ta4 


MUST  1  UK  SITS  I  THUS 
TK  ML  IS  Of  I  IS  *.** 

prlata  (ha  llaa 

TK  ML  IS  0T  I  IS  3.IS 

If  I  -  ).1MS{  tha  caaaaral— 
far  prlatlag  la  I.Mmo.m 
•  i  mval.u.  ka  valua  af 
I.  aa  ataraO  la  tha  taaptui, 
la  aarhaagai.  If  tha  far— t 
la  J.J  prlata  aa  J.SOO 


i.tS7  prlata  aa  3.  la  tha 

X 


n*C.r(J.H7)  prlata  aa 
la  tha  Ca—ai  .*** 


m 


Sal—  tha  Ora— t  . 

(ha  aalaa  )Mt  Ilf  la  prlai *4 
aa  l.rt«0J 

If  ka  C»a— l  wri  . 

It  —14  ha  prlata4  aa 
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expressad  as  ***|#*,  and  six  contiguous  one-digit  integer  fields  as 

mm. 

Blank  lines  can  be  Inserted  between  PRINT  stateaents  by  the  SKIP 
statement,  or  blank  format  lines  can  be  used.  If  e  is  any  arltraetlc 
expression,  then  the  stateaent 

SKIP  e  OUTPUT  LINES 

skips  a  maber  of  linen  equal  to  Che  value  of  e  rounded  to  an  integer, 

as  in 

SKIP  1  OUTPUT  LINE 
SKIP  N  OUTPUT  LINES 
SKIP  X  ♦  3*Y  OUTPUT  LINES 

If  e  is  negative,  it  is  treated  as  zero.  At  most,  one  complete  page 
will  be  skipped. 

Pages  can  be  ejected  before  printing,  so  that  the  next  PRINT 
stateaent  starts  at  the  top  of  a  new  Dage,  by  using  the  statement 

START  NEW  PAGE 

The  PRINT,  SKIP,  and  START  NEW  PAGE  statements  can  be  used  to¬ 
gether  to  produce  attractively  labeled  output  reports. 

As  a  final  caution,  note  chat  whereas  a  PRINT  statement  can  appear 
on  a  card  with  previous  stateme^  s,  each  of  its  following  format  lines 
aust  appear  on  a  separate  card.  This  is  illustrated  in  the  following 
program: 

'READ'  READ  X  IF  X  IS  LESS  THAN  10,  GO  TO  'READ' 

ELSE  PRINT  I  LINE  WITH  X  AS  FOLLOWS 
THE  VALUE  OF  X  IS  *•*.** 

IF  X  EQUALS  9999,  STOP 
OTHERWISE  GO  TO  READ 

1-14  THK  •X  .'**  A  MP'XPAV 

The  STOP  statement  is  used  to  terminate  a  program  Since  there 
may  be  many  ST)P  statements  in  a  program,  it  need  net  appear  physically 
at  the  end  of  a  program  deck.  The  following  progiam  illustrate*  the 
twe  of  the  STOP  statement  in  conjunction  with  two  IF  stntemente: 
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' 3ACX  *  READ  N 
IF  N  EQUALS  0,  STOP 
OTHERWISE  ADD  N  TO  SUHOFN 
ADD  1  TO  TOTAL 

PRINT  I  LINE  WITH  SUMOFN/TOTAL  LIFE  THIS 
AVERAGE  N  SO  FAR  -  **♦.*•* 

IF  TOTAL  EQUALS  1000,  STOP 
ELSE  GO  ’SACK' 

1-1S  THE  PHYSICAL  END  OF  A  PROGRAM 

The  lMt  atateamnt  in  every  SlfBCRIPT  II  program  must  be  END. 

It  signals  that  the  entire  source  program  has  been  read.  The  example 
programs  at  the  end  of  this  section  Illustrate  the  use  of  the  END 
statement . 

1-16  SOME  SAMPLE  SIMSCPIPT  II,  LEVEL  1  PROGRAMS 

The  following  programs  Illustrate  the  SI16CRTPT  II  concepts  and 
statements  presented  in  this  section.  The  programs  are  printed  as 
they  might  appear  on  punched  cards  before  being  submitted  to  a  com¬ 
puter  for  processing.  Since  the  flexibility  of  the  SIMSCRIPT  II 
program  statement  format  makes  many  card  layouts  possible,  the  formats 
used  in  these  examples  are  only  some  of  many  possible  choices. 

1-16-1  Finding  tna  NasrCman  jnd  Minima*  of  a  Set  of  Nir£>*r* 

N  numbers  are  ou  punched  cards.  The  following  program  raads 
these  numbers,  snd  determines  their  minimum  and  maximum.  When  all 
the  numbers  have  been  proceseed,  N,  their  average  value,  and  their 
minimum  end  maximum  valuee,  ere  printed. 

Notice  that  since  the  range  of  the  numbers  Is  unknown,  the  vari¬ 
able  HAX  is  initialised  to  a  large  negative  number  and  HIM  to  s  large 
positive  number  to  ensure  that  the  largest  and  smallest  data  values 
arc  retained. 
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'  'THIS  PROGRAM  COYOTES  THE  AVERAGE  AND  THE  MINIMUM  AND  MAXIMUM  OF 
"A  SET  OF  NUWERS  ON  PUNCHED  CARDS 

LET  NX- 99999. 99999  LET  MIN-MAX 
READ  N  "THE  NUMBER  OF  DATA  OBSERVATIONS 

*R*  RE AO  X  "A  OAT A  OBSERVATION 

ADD  X  TO  SUM 

IF  X  IS  GREATER  THAN  MAX,  LET  MAX-X  REGARDLESS 
IF  X  IS  LESS  THAN  MIN,  LET  MIN-X  REGARDLESS 
ADD  1  TO  COUNTER 

IF  COUNTER  IS  LESS  THAN  N,  GO  TO  R  ELSE 
START  NEW  PAGE 

PRINT  3  LINES  WITH  N.SUM/N.MX.MIN  AS  FOLLOWS 

THE  AVERAGE  VALUE  OF  ****  NUMBERS  IS  *•♦*.**** 

THE  MAXIMUM  VALUE  IS  *****.***** 

THE  MINIMUM  VALUE  IS  *****«•« 

STOP  END 


1-16-2  A  Sirrpl*  Accowting  Fyatem 

The  following  prograa  processes  ssles  and  Inventory  receipt 
transactions  In  a  prototype  accounting  ayatee.  Each  transaction  card 
contains  s  dollar  aaount,  an  account  code  for  the  debit  account,  and 
an  account  code  for  the  credit  account.  K  sero  dollar  aaount  signals 
the  end  of  transactions. 

At  the  stateswnt  labeled  'START' ,  the  8  accounts  and  2  totals 
are  act  to  their  last  aonth's  values  by  reading  these  values  fron 
punched  cards.  At  the  end  of  the  prograa,  updated  valuea  of  these 
10  variables  are  printed  for  uae  in  next  aonth's  accounting  run. 

Each  transaction  is  processed  through  one  debit  account;  the 
sequence  of  IF  atateaents  after  the  label  DEBIT  direct  the  coaputatlon 
based  on  the  debit  code  nunber  (CODE)).  Mote  the  PRINT  stateaent  at 
ERR),  which  catchee  a  aiepunehed  debit  code,  l.e.,  a  code  other  than 
1,  2,  3,  4,  or  3.  Each  transaction  lc  similarly  processed  through  a 
credit  account. 

When  all  the  transection  cards  have  been  read,  a  balance  sheet 
and  the  aonthly  balances  are  printed.  Mote  the  different  uses  of  the 
PRINT  etat want :  to  print  titles  and  Heaclnge,  and  to  print  labeled 


variable  valuta. 


23- 


“  THIS  PROGRAM  IS  A  SIMPLE  ACCOUNTING  SYSTEM 

'START'  READ  CASH, RECEIVABLES, INVENTORY, PLANT.EQUIPMENf, TOTALASSETS, PAYABLES, 

LOAN, EQUITY, TOTALLIABILITIES 
'READ'  READ  DOLLARS .CODE!, CODE2 

'TEST'  If  DOLLARS  EQUALS  0,  GO  TO  'FINISHED' 

OTHERWISE  ADO  1  TO  TRANSACTIONCOUNTER 
'DEBIT'  IF  CCDE1  EQUALS  1,  ADD  OOLLARS  TO  CASH  GO  TO  TOTALD  ELSE 

IF  CODE!  EQUALS  2,  ADO  DOLLARS  TO  RECEIVABLES  GO  TO  TOTALD  ELSE 

IF  C0DE1  EQUALS  3,  ADO  DOLLARS  TO  INVENTORY  GO  TO  TOTALD  ELSE 

I y  CODE  1  EQUALS  4,  ADO  DOLLARS  TO  PLANT  GO  TO  TOTALD  ELSE 

IF  COOE1  EQUALS  5,  ADO  DOLLARS  TO  EQUIPMENT  GO  TO  TOTALD  ELSE 

'ERR!'  PRINT  1  LINE  WITH  TRANSACTIONCOUNTER  AND  CODE!  AS  FOLLOWS 

TRANSACTION  ****  HAD  CODE!  PUNCHED  AS  •** 

STOP 

'TOTALD'  ADO  DOLLARS  TO  TOTALASSETS 

'CREDIT'  IF  C00E2  EQUALS  1,  SU8TRACT  DOLLARS  FROM  PAYABLES  GO  TO  TOTALC  ELSE 

IF  C0DE2  EQUALS  2,  SUBTRACT  DOLLARS  FROM  LOAN  GO  TO  TOTALC  ELSE 

IF  C00E2  EQUALS  3,  SUBTRACT  DOLLARS  FRO*  EQUITY  GO  TO  TOTALC  ELSE 

' ERR2 '  PRINT  1  LINE  WITH  TRANSACTIONCOUNTER  AND  C0DE2  AS  FOLLOWS 

TRANSACTION  ****  HAD  C0DE2  PUNCHED  AS  *** 

STOP 

'TOTALC'  SU8TRACT  OOLLARS  FROM  TOTALLIABILITIES 
GO  TO  'READ' 

'FINISHED'  START  NEW  PAGE  PRINT  1  LINE  WITH  TRANSACTIONCOUNTER  THUS 
*****  TRANSACTIONS  WFRE  PROCESSED  THIS  MONTH 
SKIP  5  OUTPUT  LINES 

PRINT  9  LINES  CONTAINING  CASH, PAYABLES, RECEIVABLES, LOAN, INVENTORY, 

PLANT, EQUITY , EQUIPMENT .TOTALASSETS 


AND  TOTALLIABILITIES 

AS  FOLLOWS 

ASSETS 

LIABILITIES 

CURRENT  ASSETS 

CURRENT  LIABILITIES 

CASH 

$♦**** 

ACCOUNTS  PAYABLE 

£***•* 

RECEIVABLES 

A  +  *** 

LOAN 

***** 

INVENTORY 

***** 

FIXED  ASSETS 

EQUITY 

PLANT 

£***** 

EQUITY 

$•**** 

EQUIPMENT 

***** 

TOTAL  ASSETS 

{****« 

TOTAL  LIABILITIES 

J***** 

SKIP  3  OUTPUT  LINES 

PRINT  2  LINES  WITH  CASH, RECEIVABLES, INVENTORY, PL ANT, EQUIP* NT, 
TOTALASSETS, PAYABLES. LOAN  .EQUITY  AND 

TOTALLIABILITIES  AS  FOLLOWS 

*****  *****  *•**»  *****  *****  •«*•• 

*****  *****  *****  ***** 

STOP  END 


*.k»  Falu#  'f  * 

The  nuafetr  t  -  »  1.14139  recur*  constantly  In  engineering  and 

(wpctatlona.  TSe  following  prograa  u»«*  an  "infinite 


scientific  ci 
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series"  representation  of  it  to  compute  its  value  to  four-decimal-place 
accuracy.  The  specific  formula  used  is 


The  program  starts  by  initializing  the  variables  SIGN  and  DIVISOR 
to  their  starting  value  of  1.  The  variable  PI  is  automatically  initia¬ 
lized  to  0  at  the  start  of  the  program. 

At  the  label  TERM  the  value  of  the  next  term  (1 /DIVISOR)  is  com¬ 
puted.  At  the  label  TEST,  a  test  is  made  to  determine  if  enough  terms 

have  been  computed  to  give  sufficient  accuracy,  using  the  fact  that 
any  term  with  value  less  than  0.00025  will  add,  or  subtract,  less  than 
0.001  to,  or  from,  the  sum  of  the  series  when  it  is  multiplied  by  4 
to  evaluate  ir. 

If  the  term  is  greater  than  or  equal  to  0.00025,  the  sign  of  the 

term,  which  alternates  between  +1  and  -1,  is  computed  and  the  value 

of  the  term  is  added  to  the  variable  PI.  The  program  then  returns  to 
the  label  TERM  to  continue  the  summation  of  the  series. 

When  the  term  is  less  than  0.00025,  the  program  transfers  to  the 
label  FINISHED,  where  the  expression  PI*4  is  printed. 

"  THIS  PROGRAM  COMPUTES  THE  VALUE  OF  PI  TO  AN  ACCURACY  OF  0.001 

'INITIALIZATION*  LET  SIGN=1  LET  DIVIS0R=1 

'TERM'  LET  TERM=1 /DIVISOR 

'TEST'  IF  TERM  IS  LESS  THAN  0.00025, PRINT  1  LINE  WITH  PI*4  LIKE  THIS 

THE  VALUE  OF  PI  IS  *.***** 

STOP 

OTHERWISE  ADD  SIGN*TERM  TO  PI 
LET  5IGN--SIGN 
ADD  2  TO  DIVISOR 
GO  TO  'TERM' 

END 

1-16-4  Computing  the  Square  Boot  of  a  Number 

The  square  root  of  a  number  is  a  commonly  needed  value.  A  higher 
level  of  S1MSCRIPT  II  provides  a  facility  for  automatically  computing 
square  roots,  but  the  following  program  ignores  the  facility  and  uses 
a  mathematical  formula  to  evaluate  the  square  root  of  a  number  to  a 
specified  accuracy.  The  formula  is  an  iterative  one,  with  each 
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succeeding  value  of  the  approximation  to  the  square  root  generating 
a  better  approximation.  The  iterative  formula  is 


1  ,  .  N  . 

xl«  •  2  (xi  +  7? 


where  1  is  the  number  of  the  iteration  and  is  the  approximation  to 
the  square  root  of  N. 

The  program  is  designed  to  be  executed  repeatedly  for  several 
values  of  N.  It  starts  by  printing  a  title  for  the  table  of  square 
roots  it  is  going  to  generate.  At  the  label  READ,  the  values  of  N 
and  the  required  accuracy  EPSILON  are  read  from  punched  cards,  and  a 
test  is  made  to  see  if  this  N,  with  a  value  of  C,  is  a  signal  that 
there  are  no  more  data  cards. 

If  N  is  greater  than  0,  a  first  guess  at  the  square  root  of  N  is 
made  at  the  label  GUESS.  This  guess  sets  x^,  here  called  SQRT1 ,  equal 
to  N/2.  The  iteration  starts  at  the  statement  label  'LOOP1,  where 
x^+1  *  y  (x^  +  N/x^)  is  computed;  x^+1  is  called  SQRT. 

If  DELTA,  the  difference  between  SQRT1  and  SQRT,  is  less  than 
EPSILON,  the  required  accuracy  has  been  achieved.  The  values  of  N 
SQRT  and  EPSILON  are  then  printed  and  control  is  transferred  to  'READ' 
to  get  a  new  data  card. 

As  long  as  DELTA  remains  greater  than  or  equal  to  EPSILON,  another 
iteration  is  required.  For  this,  x^  is  set  equal  to  x^+^  (SQRT!  *■ 
SQRT),  and  control  returned  to  'LOOP'. 

A  second  program  computes  a  square  root  in  the  same  way,  but  uses 
a  different  procedure  for  obtaining  successive  values  of  N.  This 
program  illustrates  the  use  of  an  iteration  sequence,  a  series  of 
numbers  that  are  equally  spaced  between  two  values,  to  control  the 
computation  section  of  the  program.  This  important  concept  is  elab¬ 
orated  in  Level  2. 
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' '  THIS  PROGRAM  COMPOTES  THE  SQUARE  ROOT  OF  N  TO  AN  ACCURACY  OF  EPSILON 
"  N  IS  A  POSITIVE  NUMBER,  EPSILON  IS  GREATER  THAN  0  AND  LESS  THAN  O.OOOOl 

PRINT  1  LINE  AS  FOLLOWS 

N  SQUARE  ROOT  OF  N  EPSILON 
'READ'  READ  N, EPSILON 

IF  N  EQUALS  0,  STOP  OTHERWISE 
LET  SQRTl*N/2 

'LOOP'  LET  SQRT* (SQRT1  +  N/SQRT1 )/2 
LET  DELTA-SQRT1-SQRT 

• '  USE  THE  ABSOLUTE  {+)  W'l.UE  OF  DELTA  IN  THE  TEST 
IF  DELTA  IS  LESS  THAN  \LEi  DELTA* -DELTA 
REGARDLESS  IF  DELTA  .S  LESS  THAN  EPSILON, 

GO  TO  ’PRINT' 

OTHERWISE  LET  SQRT1*SQRT 
GO  TO  ’LOOP' 

'PRINT'  PRINT  1  LINE  WITH  N.SQRT, EPSILON  AS  FOLLOWS 

***  **  hhhh  h  irk  hie 

GO  TO  'READ' 

END 

"  THIS  PROGRAM  COMPUTES  THE  SQUARE  ROOT  OF  N  TO  AN  ACCURACY  OF  EPSILON 
"  THE  DATA  IS  NOW  IN  THE  FORM  OF  A  LOWER  AND  UPPER  VALUE  OF  N  AND  AN 
"  INCREMENT  BY  WHICH  THE  LOWER  VALUE  IS  ADVANCED  TO  THE  UPPER  VALUE. 

"  THE  VALUE  OF  EPSILON  IS  CONSTANT  FOR  ALL  VALUES  OF  N 

READ  N.NINCREMENT.NLAST, EPSILON 

PRINT  1  LINE  CONTAINING  EPSILON  AS  FOLLOWS 

N  SQUARE  ROOT  OF  N  ACCURACY**.**** 

'NEXTN'  LET  SQRTl*N/2 
'LOOP'  LET  SQRT=(SQRT1  +  N/SQRT1 )/2 
LET  DELTA=SQRT1-SQRT 

' '  USE  THE  ABSOLUTE  (+)  VALUE  OF  DELTA  IN  THE  TEST 
IF  DELTA  IS  LESS  THAN  0,  LET  DELTA* -DELTA 
REGARDLESS  IF  DELTA  IS  LESS  THAN  EPSILON,  GO  TO  'PRINT' 

OTHERWISE  LET  SQRT1 =SQRT  GO  TO  'LOOP' 

'PRINT'  PRINT  1  LINE  WITH  N  AND  SQRT  LIKE  THIS 
***  ★*  **★* 

IF  N  EQUALS  NLAST,  STOP 

OTHERWISE  ADD  NINCREMENT  TO  N  GO  TO  'NEXTN' 

END 


1-16-5  A  Program  for  Regression  Analysis 

Computer  programs  are  often  used  to  analyze  data  by  statistical 
techniques  such  as  regression  analysis.  The  following  program  deter¬ 
mines  the  coefficients  a^  and  a^  of  the  regression  equation 


n  ■  *0  +  *1*1 
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using  the  formulae 


N  N  N 

N  l  x  y  -  I  x  l  y 


i-1 


i-1  x  i-1 


N  ,  N  2 

N  l  * !  -  I 

i-1  1  i-1  1 


N  N 

I  Vi  "  ai  I  xi 
i-1  1i-l 


N 


where 


N  is  the  number  of  observations  of  x^  and 
N 

£  x.  represents  the  sum  of  all  the  x. 
i-1 

N  2 

£  x  represents  the  sum  of  all  the  x. 
i-1 


etc. 


"  THIS  PROGRAM  COMPUTES  THE  COEFFICIENTS  OF  THE  REGRESSION  EQUATION 
"  Y*A0  +  A1*X  .  OBSERVATIONS  OF  X  AND  Y  ARE  ON  PUNCHED  CARDS 

'OBS'  READ  N 

'READ'  READ  X,Y 

ADD  X  TO  SUMX 

ADD  X**2  TO  SUMXX 

ADD  Y  TO  SUMY 

ADD  Y**2  TO  SUMYY 

ADD  X*Y  TO  SUMXY 

ADD  1  TO  NUMBEROFOBSERVATIONS 

'TEST'  IF  NUMBEROFOBSERVATIONS  IS  LESS  THAN  N,  GO  TO  'READ' 
OTHERWISE 

LET  Al=( N*SUMXY-SUMX*SUMY ) / ( N*SUMXX-SUMX**2 ) 

LET  A0*(SUMY-A1*SUMX)/N 

PRINT  1  LINE  WITH  AO  AND  AT  AS  FOLLOWS 

THE  REGRESSION  EQUATION  IS  Y=***.***  +  ***.***  x 
END 


STOP 
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Chapter  2 

SIMSCRIPT  II:  LEVEL  2 


2-00  VARIABLE  AND  LABEL  NAMES  REVISITED 

Chapter  1  defines  variable  and  label  names  separately;  a  variable 
is  any  combination  of  letters  and  digits  that  contains  at  least  one 
letter,  and  a  label  is  any  combination  of  letters  and  digits  without 
the  "at  least  one  letter"  constraint.  Another  way  of  stating  this  is 
to  define  a  name  as  a  combination  of  letters  and  digits  and  an  integer 
as  a  combination  of  digits,  and  allow  a  variable  name  to  look  like  a 
name  and  a  label  like  a  name  or  an  integer.  It  is  easy  to  expand 
these  rules  slightly  to  permit  more  readable  programs  by  incorporating 
periods  into  the  definitions  of  names  and  labels. 

Let  a  name  be  any  combination  of  letters,  digits,  and  periods  that 
contains  at  least  one  letter  or  two  or  more  nonterminal  periods.  Let 
a  constant  be  any  combination  of  digits,  possibly  containing  one 
period.  Then  a  variable  name  must  look  like  a  name  and  a  label  can 
look  like  a  name  or  a  constant.  This  allows  variables  to  be  dis¬ 
tinguished  from  numbers  while  maintaining  the  widest  latitude  in 
name  formation. 

Some  examples  of  possible  variable  and  label  names  are: 


Variable  names 

Label  names 

PART. NUMBER 

LABEL 

NUMBER. OF. PARTS 

SECTION. 1 

TOTAL 

«  •  •  •  1 

SECTION . 1 

12345 

.PAGE 

12.345 

3.7.6 

PART. 4 

. 6 

ERROR 
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While  the  fact  has  already  been  mentioned,  it  cannot  hurt  to 
emphasize  once  more  that  terminal  periods  cannot  be  used  in  forming 
names.  The  names  X,  X..,  and  X....  all  represent  the  same  variable 
value;  the  labels  '5*  and  '5.'  are  identical. 

While  SIMSCRIPT  II  does  not  prohibit  the  use  of  any  particular 
words^  or  names,  it  does  define  a  number  of  special  words  that  it 
recognizes  in  certain  contexts.  A  SIMSCRIPT  II  programmer  can  guard 
against  using  any  of  these  names  incorrectly  by  remembering  them  or 
the  special  naming  conventions  used  for  them.^  Each  of  these  names 
either  begins  with  a  letter  followed  by  a  period  (as  in  the  name  L.27) 
or  ends  with  a  period  followed  by  a  letter  (as  in  the  name  SQRT.F). 

A  programmer  can  regard  these  rules  as  defining  prohibited  word-forms 
or  as  guides  that  say,  "Check  with  the  Appendix  whenever  you  want  to 
use  a  name  of  this  form." 

2-01  VARIABLE  MODES 

So  far  no  explicit  restrictions  have  been  placed  on  the  magnitude 
or  precision  of  the  numbers  represented  by  variable  names.  Complete 
freedom  from  concern  over  the  expression  of  numerical  quantities  can 
be  a  good  thing;  however,  programs  can  often  be  more  efficiently 
written  if  a  programmer  places  some  restrictions  on  the  type  of  num¬ 
bers  a  program  deals  with. 

A  variable  definition  statement  is  a  declarative  message  from  a 
programmer  to  the  SIMSCRIPT  II  compiler.  Definition  statements  declare 
that  variables  have  certain  properties;  the  compiler  uses  this  infor¬ 
mation  to  generate  efficient  codes. 


The  one  exception  is  the  word  AND,  which  should  not  be  used  as 
a  name. 

These  words  are  listed  in  the  Appendix. 

f  +  f 

Particular  implementations  of  SIMSCRIPT  II  or  different  com¬ 
puters  will  of  necessity  impose  restrictions  due  to  characteristics 
of  the  computer  hardware  used  in  the  implementation.  Thus  you  might 
be  able  to  express  some  numbers  (very  large  or  very  small)  on  some 
computers,  but  not  on  others.  These  limitations  are  seen  by  a  pro¬ 
grammer  in  the  magnitude  and  precision  of  the  numbers  he  can  express, 
and  in  the  results  of  his  computations. 
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SIMSCRIPT  II  variables  can  be  declared  as  INTEGER  or  REAL.  Vari¬ 
ables  declared  as  INTEGER  represent  whole  nunbers;  variables  declared 
as  REAL  represent  mnbers  that  can  have  fractional  values.  The  numbers 
56,  -6745,  91,  -1,  and  0  are  INTEGER  valued;  the  numbers  56.0,  35.7846, 
0.999876,  -27.45,  and  0.0  are  REAL  valued.  Note  that  a  whole  number 
such  as  56  can  be  expressed  either  as  INTEGER  or  REAL.  It  is  the  pos¬ 
sibility  of  a  fractional  value,  and  not  any  particular  value,  that 
makes  a  variable  require  a  REAL  definition. 

Every  SIKSCRIPT  II  program  has  a  preamble  that  contains  variable 
definition  Information.  Often  this  preamble  is  not  written,  but  im¬ 
plied,  as  in  Level  1,  where  all  variables  are  treated  as  REAL.  When¬ 
ever  a  variable  has  a  property  that  differs  from  one  that  SIKSCRIPT  II 
assumes,  a  definition  ;  tatement  must  be  used.  Programs  containing  a 
preamble  must  begin  with  the  one-vord  statement  PREAMBLE.  Following 
variable  definition  statements  must  be  marked  off  from  succeeding 
program  statements  by  the  word  END.  (Sec  examples  in  Sec.  2-04.) 

As  stated,  the  mode  of  a  variable  (whether  it  is  INTEGER  or  REAL) 
is  assiased  REAL  unless  otherwise  specified;  the  "normal  form"  of 
SIMSCRIPT  II  variables  is  decimal  manbers. 

The  assumed  REAL  condition  can  be  changed  by  using  the  statement 

NORMALLY,  MODE  IS  INTEGER 

This  statement  resets  the  compiler's  "background  conditiona"  so  that 
all  following  program  variables  are  assumed  INTEGER  unless  otherwise 
specified.  The  coma,  after  the  word  NORMALLY  is  optional;  the  word 
IS  can  be  replaced  by  tha  equals  symbol  (*).  Thus,  the  abc/e  state¬ 
ment  can  be  written  as 

NORMALLY  MC3E  IS  INTEGER  or 

NORMALLY  MODE  -  INTEGER 

Individual  variables  that  differ  from  the  implied  or  NORMALLY 
defined  mode  can  have  their  mode  specified  in  a  DEFINE  statement. 

This  statement  lists  one  or  m-ire  variable  names  end  defines  their 
cotnon  mode.  The  statement 

DEFINE  X,  Y,  Z,  PARTNER. ONE  AND  hf  AS  INTEGER  VARIABLES 


Illustrates  the  way  in  which  the  DEFINE  statement  ia  used  to  declare 
taat  the  five  variables  X,  Y,  Z,  PARTNER. ONE,  and  ME  are  all  INTEGER 
valued.  If  the  background  conditions  were  INTEGER,  the  word  REAL 
could  be  used  to  define  the  variables  as  REAL. 

The  DEFINE  scatoaent  has  a  number  of  alternative  forms ;  the  only 
words  that  must  appear  in  it  are  DEFINE,  the  variable  names  being 
defined,  AS,  and  the  word  VARIABLE  or  VARIABLES.  The  wo-'da  A,  AN, 
INTEGER,  a*»d  REAL  are  included  when  needed.  Some  examples  of  the 
DEFINE  statement  are: 

DEFINE  X  AS  A  REAL  VARIABLE 
DEFiNE  X  AS  AN  INTEGER  VARIABLE 
DEFINE  X  AND  Y  AS  INTEGER  VARIABLES 
DEFINE  X,  Y,  Z  AS  VARIABLES 
DEFINE.  X  AS  A  VARIABLE 

In  later  sections,  the  N0RMALLv  and  DEriNE  statements  are  ex¬ 
panded  to  include  more  than  mode  definition,  as  mode  ia  but  one  of 
several  properties  that  can  le  used  to  descti.be  variables.  These 
descriptors  will  be  edded  to  the  mode  specification;  sometimes  mixes 
of  NORMALLY  and  DEFINE  statements  will  be  used  in  a  program's  preamble. 

When  a  variable  is  defined  with  a  certain  mode  it  can  only  be 
used  in  ways  that  art  consistent  with  its  definition.  One  source  of 
error  Is  reading  data  from  punched  cards  that  conflict  with  the  form 
in  which  variable  values  can  be  stored.  Table  2-1  specifies  the 
actions  taken  when  different  combinations  of  data  and  variable  defi¬ 
nitions  occur. 

2-02  EXPRESSION  MODES 

While  statements  that  combine  INTEGER  and  REAL  variables  are 
allowed,  a  programmer  should  be  aware  of  the  way  in  wnlch  computations 
are  carried  out  whenever  "mixed  mode"  expressions  are  used. 

(1)  Arithmetic  expressions  of  the  form  A  on  B,  where  op  Is 
ary  of  the  arithmetic  operations  ♦  ,  -,  and  *,  are 


A  and  8  represent  variablea  of  ‘.ecified  mode,  or  constants  of 
that  mode. 
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Table  2-1 

REAL- INTEGER  INPUT  DATA  CONVERSIONS 


Data 

Punched  as 

Variable 
Defined  a a 

Action 

INTEGER 

INTEGER 

Data  value  stored  in  variable 

INTEGER 

REAL 

Data  value  converted  to  deciauil  representation 
and  then  stored  in  variable;  e.g.,  55  stored 
as  55.0 

REAL 

REAL 

Data  value  stored  in  variable 

REAL 

INTEGER 

Program  terminates  with  error  message;  not 
poesible  to  store  fractional  value  in  integer 
representation 

INTEGER  If  both  A  and  B  are  INTEGER 

REAL  if  either  A  or  B  ia  REAL 

(2)  Expreaaions  A/B  are  always  REAL;f 

(3)  Expressions  A**B  are  always  REAL. 

Compound  expreaaions  are  evaluated  from  left  to  right  as  a  se¬ 
quence  of  simple  expressions  that  are  evaluated  according  to  the 
above  rules.  In  the  following  examples.  If  A,  B,  and  C  are  INTEGER, 
Chen 

A/B  ♦  C  is  REAL 

A  ♦  B  ♦  C  is  INTEGER 

A**B  ♦  C  is  REAL 

When  an  expression  appear*  on  the  r1?ht-hand  side  of  a  LET  state¬ 
ment  or  in  an  ADO  or  SUBTRACT  statement,  and  its  mode  differs  from 
the  mode  of  the  vsrisble  on  the  left-hand  side,  the  expression  is  con¬ 
verted  to  the  mod#  of  the  vsrisble  before  the  value  of  the  variable 
is  changed.  When  the  arithmetic  expression  constituents  of  logics’ 
expressions  differ  in  node,  all  INTEGER  expreafions  are  converted  to 


Two  INTEGER  exproaaions  car.  be  divided  to  vield  -  truncated 
INTEGER  result  by  a  procedure  described  in  Tec. 
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REAL  before  evaluating  the  logical  expreaaion  aa  true  or  falae. 

Converalons  from  INTEGER  to  REAL  are  atraight forward.  An  INTEGER 
ro  REAL  conversion  takes  the  whole  nuaber  that  la  the  value  of  an 
INTEGER  variable  and  converts  it  to  a  REAL  number  with  the  sane  value; 
25  becomes  25.0,  -11  becomes  -11.0,  and  eo  forth. 

REAL  to  INTEGER  conversions  are  aore  complex.  REAL  values  are 
rounded  to  whole  nuabers  1/  adding  *0.5  to  the  variable  If  Its  value 
is  positive  or  -0.5  If  It  is  negative,  and  truncating  the  result.  If 
X  is  INTEGER  and  e  is  some  REAL  valued  expression  <  formed  according 
to  the  above  rules),  then 

LET  X  *  e  sets  X  1  0  if  e  *  0.2  since 
0.2  *  0.5  *0.7  *  0 

LET  X  *  e  sets  X  *  1  if  e  =  1.4999  since 
1.4999  ♦  0.5  *  1.9999  -  1 

LET  X  *  8  sets  X  *  2  if  e  *  1.50000  since 
1.50000  *  0.5  -  2.0000  ►  2 

2-02  SUBSCRIPTED  VARIABLES 

Variable  names  can  be  used  to  identify  more  than  one  quantity. 
This  feature  is  particularly  useful  in  programs  dealing  with  data 
Chat  have  a  regular  structure,  e.g. ,  data  in  the  form  of  lists  or 
tables.  Lists  and  tables  are  examples  of  -irraus .  Individual  data 
items  in  an  array  are  called  elements  of  the  array.  A  simple  list 
of  items  (Fig.  2-1)  is  called  a  one-dimensional  arrsv;  a  table  of 
items  (Fig.  2-2)  is  called  a  two-dimensional  array;  in  general,  a 
data  col’ection  that  has  n  reference  indices,  as  a  position  in  a  list, 
or  a  row  and  column  location  in  a  table,  can  be  described  bv  an 
n-  :i mens i anal  array. 


Fig.  2-1  --  A  list  structure;  a  one-dinens ’ oral  rr« y 
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Column  1  Column  2  Column  3  Column  4  Column  i 

Row  ) 

Row  2 

Row  3 


- 1 

Fig.  2-2  —  A  table  structure;  •  two-dimensional  array 

Tha  elasmnta  of  the  array  shown  in  Fig.  2-1  can  be  described  by 
an  identifying  name,  LIST  for  example,  and  an  index  number  which  can 
aaauaa  inCagar  valuaa  fro®  1  to  Che  Cotal  n vaab**  jf  element#  in  Che 
llac.  Tha  array  naam  la  uaad  Co  idancify  cha  collection  of  elements; 

Cha  index  number,  called  a  eubecript ,  enclosed  in  parentheses  after 
Cha  array  none,  la  used  to  denote  particular  elements.  Thus  the  flrat 
element  in  the  array  LIST  la  called  LIST(l),  the  fifth  element  LIST ( 5 ) , 
and  the  Ith  element  LIST(I). 

Croupe  of  variables  that  have  a  one-dimensional  array  structure 
can  therefore  be  deecrlbrd  by  an  identifier  and  a  single  subscript. 
Figure  2-3  shows  the  list  of  Fig.  2-1  with  the  individual  element 
names  inserted.  Each  element's  subscript  denotes  its  position  in  tnt 
structure  of  the  llet;  the  value  of  the  third  element  in  the  array  is 
in  the  variable  L I  ST ( 3 ) .  the  value  of  the  seventh  element  in  LIST(7),  et 


UST ( 1) 

UST ( 2 ) 

UST (  i) 

UST ( 4 ) 

US  T (S  > 

UST ( < ) 

l 

us  r ( 7 ) 

UST ( S ) 

US  T (  » ) 

Fig.  2-3  --  Elements  of  R  or«-d1 sens  tonal  array  called  LIST 


Variables  with  a  tvo-dlme 
by  an  Identifier  and  s  pair  of 
is  the  name  of  the  array;  each 
in  a  coordinate  dimension.  In 
•«  the  element  location  in  the 
element  location  in  the  col. an 


neional  array  structure  can  be  deecribed 
subscript*.  The  identifier  (ee  slveya) 
subscript  denote#  an  element  location 
Fig.  2-4,  the  firet  suhecrlpt  is  used 
row  direction,  and  the  second  ea  the 
direction.  Array  elements  are  specified 
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Cotumn  Number 


1 

2 

3 

4 

s 

1 

TABU  (  1.  1) 

TABU  (  1.2) 

TABU  (  1.1) 

tabu  ( :. ; , 

I  ABL£(  1.  &)  I 

Row  Number  2 

TABLf  ( 2.  n 

TABL£(  2,  2 ) 

TABU(  2,  3) 

TABU  (2.  4) 

\ 

TA0LE( 2.  $) 

3 

TABU  (  3.  1 ) 

TAB.S(  3,  2 ) 

TABU(3,  3) 

T  AsU(  3  4) 

TABU  (3.  5) 

Fig.  2-4  --  Elements  of  a  two-dliwnslonal  array  called  TABLE 


by  writing  their  respective  subscripts,  enclosed  in  parentheses  and 
separated  by  a  cow/  after  the  array  naae.  Figure  2-^  shows  the 
two-dimensional  array  of  Fig.  2-2,  here  called  TABLE,  with  the  Indi¬ 
vidual  element  news  Inserted.  Note  how  the  subscript  values  Indicate 
each  element's  position  In  the  structure  of  the  table. 

Arrays  with  aore  than  two  dimensions  can  be  described  In  this 
notation.  A  three-dimensional  array  called  CUBE  might  have  elements 
CU8E(I,  J,  K),  a  seven-dimensional  array  called  SEVEN. DIH  might  have 
elements  SEVEN. DIM(A,  8.  C.  0,  E,  F,  6,. 

f-ubacripted  variables  (the  elements  of  arrays)  can  be  INTEGER  or 
REAL  valued.  All  elements  of  an  array  must  have  the  same  mode.  If 
their  mode  differs  from  that  of  the  compiler's  background  conditions 
It  can  be  declared  In  a  DEFINE  statement  lr.  the  same  way  as  uneub- 
scripted  variables.  For  Instance,  if  the  assuaed  mode  of  all  as  vet 
undeclared  variables  has  been  set  to  REAL,  then  we  might  write  the 
statement 

DEFINE  LIST  AND  TABLE  AS  INTTSER  ARRAYS 

The  words  VARIABLE,  VARIABLES,  ARRAY,  and  ARRAYS  can  be  used  Inter¬ 
changeably  to  improve  the  readability  of  declarations. 

The  c?  v.  in+zy ,  whether  It  has  0,  1,  1,  1  or 

more  subscripts,  must  be  defined  In  the  preamble.  A  ii'eii:  i ’  > 

apari  fi  ,*\if ;  me  *  can  be  included  In  either  NORMALLY  or  DEFINE 

statements,  dep  idfng  on  whether  It  Is  to  apply  as  a  background 


A 


'hi  1  y  a  M,"'  can  be  used;  AND  and  .AND  are  not  allowed. 
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condition  or  as  a  local  property  declaration.  The  phrase  is  written 
somewhat  differently  in  each  case. 

In  a  NORMALLY  statement,  a  dimensionality  specification  phrase 
can  appear  by  itself  or  can  be  separated  from  a  mode  specification 
phrase  by  a  comma.  An  n-dimensional  array  background  condition  is 
declared  by  any  of  the  phrases, 

DIMENSION  =  n  DIMENSION  IS  n 
DIM  =  n  DIM  IS  n 

as  in  the  abatements 

NORMALLY,  MODE  IS  INTEGER  AND  DIMENSION  =  2 
NORMALLY,  DIM  ^  3 

NORMALLY  DIMENSION  IS  1,  MODE  IS  REAL 

The  mode  and  dimensionality  phrases  can  appear  in  separate  statements, 
or  in  any  order  in  the  same  statement.  As  additional  specification 
phrases  are  added  in  later  sections,  phrase  choices  will  be  increased 
but  these  rules  will  net  charge;  the  general  form  of  tha  NORMALLY 
statement  is 

ORMALLY,  specification  phrase  list 

In  a  DEFINE  statement  the  same  general  rules  apply.  A  dimension¬ 
ality  specification  can  be  mads  for  a  list  of  subscripted  variables 
with  the  dimensionality  phrase  n-DIMENSIONAL  or  n-DIM  as  in  the  state¬ 
ments 

DEFINE  LIST  AS  AN  INTEGER,  1 -DIMENSIONAL  ARRAY 
DEFINE  LIST  AND  VECTOR  AS  REAL,  1 -DIMENSIONAL  ARRAYS 
DEFINE  CODE  AS  A  3-DIMENSIONAL,  INTEGER  ARRAY 

Note  that  if  a  majority  of  program  variables  are  arrays  of  a  particular 
dimension  they  can  be  defined  by  a  NORMALLY  statement,  and  the  DEFINE 
statement  can  be  used  specify  unsubscripted  variables  and  subscripted 
variables  of  other  dimensionality,  as  in 

PREAMBLE 

NORMALLY,  MODE  IS  INTEGER,  DIMENSION  =  2 
DEFINE  X,  Y,  Z  AND  Q  AS  REAL  VARIABLES 
DEFINE  VECTOR  AS  A  1 -DIMENSIONAL  ARRAY 
END 
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A  variable  must  not,  however,  be  used  in  more  than  one  DEFINE  state¬ 
ment.  It  Is  permissible  to  write 

NORMALLY,  MODE  IS  REAL,  DIMENSION  =  1 
DEFINE  X  AS  AN  INTEGER,  O-DIMENSIONAL  VARIABLE 

It  is  not  permissible  to  write 

NORMALLY,  MODE  IS  REAL,  DIMENSION  IS  1 
DEFINE  X  AS  AN  INTEGER  VARIABLE 

DEFINE  X  AS  A  O-DIMENSIONAL  VARIABLE 

Each  unsub8cripted  (O-dimensional)  variable  uses  one  computer 
word  to  store  its  value;  for  each  variable,  e.g.,  MONEY,  UNIT. COST, 
there  is  a  memory  location  that  contains  the  value  of  MONEY,  the 
value  of  UNIT. COST.  Similarly,  each  element  of  each  array  needs  a 
distinct  computer  word  where  its  value  can  be  stored.  A  one-dimen¬ 
sional  array  with  10  elements  uses  10  memory  locations,  a  two-dimen¬ 
sional  array  with  3  rows  and  5  columns  uses  (3*5)  -  15  memory  locations, 
and  so  forth. 

A  programmer  does  not  have  to  make  provisions  f r _  allocating 
memory  locations  to  unsubscripted  variables;  when  the  compiler  en¬ 
counters  a  new  unsubscripted  variable,  e.g.,  X,  it  automatically 
assigns  a  memory  word  to  that  name.  This  is  not  true  for  subscripted 
variables,  for  an  array  can  have  any  number  of  elements,  and  unless 
the  compiler  is  told  exactly  how  many,  memory  space  cannot  be  assigned. 

The  RESERVE  statement  allocates  computer  memory  to  arrays.  The 
dimensionality  of  each  array  is  indicated  by  asterisKS  in  subscript 
positions;  subscript  size  expressions  declare  the  largest  value  that 
each  subscript  position  index  can  assume.  The  product  of  these  ex¬ 
pressions  is  the  total  number  of  memory  cells  allocated  to  aach  array. 
Thus  the  statement 

RESERVE  X(*)  AS  25,  TABLE{*,*)  AS  5  BY  27,  CARG0(*)  AS  18 
AND  CUBE{*,*,*)  AS  3  BY  6  BY  10 

allocates  memory  svace  for  a  one-dimensional  array  X  with  25  elements 
X(1),  X(2),  ....  X ( 25 ) ,  a  two-dimensional  array  TABLE  with  (5*27)*>135 
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elements  TABLE ( 1 ,1),  TABLE(1 ,2),  TABLE (1 ,3) . TABLE(1,27),  TABLE 

(2,1),  ...»  TABLE(2,27) ,  TABLE (3,1) •  TABLE(5,27),  a  one-dimensional 

array  CARGO  with  18  elements,  and  a  three-dimensional  array  CUBE  with 
( 3*6*10) »180  elements. 

Subscript  size  expressions  need  not  be  constants,  as  in  the  above 
example,  but  can  be  arithmetic  expressions  containing  variables,  in¬ 
cluding  other  subscripted  variables  that  have  been  previously  defined 
and  whose  value  has  been  specified.  If  such  expressions  are  REAL, 
they  are  rounded  to  INTEGER  before  they  are  used  as  array  dimension 
specifiers.  Thus  the  statement 

RESERVE  X(*)  AS  N,  TABLt(*,*)  AS  N  BY  2*N,  LIST(*)  AS  MAN. NUMBER 

AND  Y(*)  AS  S**T/2.5 

defines  the  arrays  X,  TABLE,  LIST  and  Y  as  long  as  the  variables  N, 

MAN. NUMBER,  S  and  T  have  previously  been  defined. 

If  a  subscript  expression  in  a  RESERVE  statement  is  1,  there  is 
only  one  element  allocated  to  that  dimension.  The  statement  RESERVE 
X(*)  AS  1  defines  an  array  X  with  one  element  X(l);  the  statement 
RESERVE  TABLE(*,*)  AS  1  BY  3  defines  a  two-dimensional  array  with 
three  elements  —  TABLE (1 ,1 ) ,  TABLE(1,2),  and  TABLE(1,3).  For  all 
practical  purposes,  these  one-  and  two-dimensional  arrays  are  equiva¬ 
lent  to  the  unsubscripted  variable  X  and  a  one-dimensional  array 
TABLE(I),  i»l,  2,  3,  respectively. 

A  subscript  size  expression  cannot  be  zero  or  negative.  If  an 
attempt  is  made  to  reserve  space  with  a  zero-  or  negative-valued 
expression,  a  program  terminates  with  an  error  message. 

A  RESERVE  statement  can  appear  anywhere  but  in  the  preamble  of 
a  SIMSCRIPT  II  program.  It  is  an  executable  statement,  and  until  a 
RESERVE  statement  containing  an  array  name  has  been  executed,  storage 
is  not  allocated  for  that  array  and  its  element  values  are  not  defined. 
RESERVE  statements  are  normally  found  at  the  head  of  a  program.  Each 
subscripted  variable  must  be  reserved  before  it  can  be  used  —  a  firm 
rule  to  bear  in  mind.  For  example,  the  pair  of  statements 

RESERVE  LIST(*)  AS  10  LET  LIST(1)=1 


allocates  memory  space  to  the  array  LIST  before  it  assigns  a  value  to 
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the  element  LIST ( 1 ) .  Each  reserved  array  is  initialized  to  zero  after 
memory  space  is  allocated  to  it.  If,  either  inadvertently  or  delib¬ 
erately,  a  RESERVE  statement  is  executed  more  than  once,  the  SIMSCR1PT 
II  operating  program  recognizes  that  storage  has  already  been  allocated 
to  the  listed  variables  and  ignores  all  but  the  first  RESERVE  statement. 

When  two  or  more  arrays  have  the  same  dimensions,  an  abbreviated 
notation  can  be  used.  If  A,  B,  and  C  are  separate  two-dimensional 
arrays,  the  following  statement  allocates  an  identical  amount  of 
memory  space  to  each: 

RESERVE  A  (*,*),  B{*,*),  C(*,*)  AS  5  BY  10 

Any  RESERVE  statement  can  contain  a  sublist  of  this  form  among 
its  list  of  arrays,  as  in 

RESERVE  X(*)  AS  5,  F!LE(*,*,*)  AS  4  BY  N+M  BY  6,  TABLE(*,*)  AS  2  BY  3, 
LIST1 (*)  AND  LIST2(*)  AS  N+M,  QUEUE(*,*)  AS  3  BY  Y, 

A(*) ,  B ( *)  AND  C(*)  AS  15 

The  dimensionality  of  an  array  is  frozen  when  it  is  declared  in 
a  DEFINE  statement.  Dimensionalities  declared  in  NORMALLY  statements 
can  be  overridden  by  subsequent  definitions  in  DEFINE  statements,  as 
in  the  statements 

NORMALLY,  DIMENSION  =  2,  MODE  IS  REAL 
DEFINE  X  AS  A  1 -DIMENSIONAL  ARRAY 

Once  a  dimensionality  has  been  frozen,  however,  it  must  be  used  con¬ 
sistently.  In  cases  where  there  is  disagreement  between  uses  of  an 
array,  the  SIMSCRIPT  II  compiler  takes  the  following  actions: 

When  a  subscripted  variable  has  too  few  subscripts,  the  missing 
subscripts  are  considered  to  be  in  the  rightmost  subscript  position, 
a  1  is  inserted  in  each  empty  position  and  a  warning  message  Is  issued. 

For  example,  the  incorrect  LET  statement  in  the  following  program 
segment 

RESERVE  TABLE(*,*)  AS  N  3Y  M  LET  TABLE(I)  =  1 

is  Interpreted  and  compiled  as  LET  T ABLE ( I , l )  =  1. 

When  a  subscripted  variable  has  too  many  subscripts,  the  extra 
subscripts  are  considered  to  be  in  the  rightmost  subscript  positions, 


-AO- 


each  extra  subscript  is  deleted  from  the  element  reference  and  a 
warning  message  is  issued.  For  example,  the  incorrect  LET  statement 
in  the  program  segment 

RESERVE  L I  ST ( * )  AS  10  LET  LIST(I.J)  =  1 

is  interpreted  and  compiled  as  LET  L1ST(I)  =  1. 

If  an  array  name  appears  in  a  RESERVE  statement  without  asterisks 
to  indicate  its  subscript  positions,  asterisks  are  filled  in  to  make 
the  array  agree  with  the  dimensionality  previously  declared  in  a 
DEFINE  statement.  If  no  dimensionality  declaration  has  been  made, 
the  number  of  subscript  size  expressions  is  assumed  to  be  the  dimen¬ 
sionality.  Thus,  if  an  array  has  been  declared  as  two-dimensional 
by  the  statement 

DEFINE  MATRIX  AS  A  2-DIMENSIONAL,  INTEGER  ARRAY 

or  if  no  dimensionality  declaration  has  been  made  for  the  array  the 
statement 

RESERVE  MATRIX  AS  5  BY  7 

is  compiled  as 

RESERVE  MATRIX ( * ,*)  AS  5  BY  7 

without  a  warning  message  being  issued.  The  form  commonly  used  in 
RESERVE  statements  is  an  array  name  without  asterisks.  It  is  shorter 
to  write,  and,  in  the  presence  of  DEFINE  and  NORMALLY  declarations, 
unambiguous.  The  long  form  is  useful  for  program  documentation. 

2-04  USING  SUBSCRIPTED  VARIABLES 

The  following  examples  illustrate  some  uses  of  subscripted 
variables : 

(1)  To  read  a  number  from  a  data  card,  and  add  together  those 
subscripted  variables  in  a  list  that  are  greater  than  the  number. 
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PREAMBLE 

DEFINE  NUMBER  AS  A  1- DIMENSIONAL  ARRAY 
DEFINE  INDEX  AS  AN  INTEGER  VARIABLE 
END 

RESERVE  N'JMBER(*)  AS  500 

•  l  program  statements  assign  values  to 

•  \  the  elements  of  the  array  NUMBER 

READ  N  LET  INDEX*! 

'LOOP'  IF  NUMBER( INDEX)  IS  GREATER  THAN  N,  ADD  NUMBER( INDEX)  TO  SUM 
REGARDLESS  ADD  1  TO  INDEX 
IF  INDEX  IS  LESS  THAN  500,  GO  TO  LOOP  ELSE 
PRINT  1  LINE  WITH  SUM  AS  FOLLOWS 
SUM  =  *.** 

STOP  END 

' '  NOTE  THAT  INDEX  MUST  BE  INITIALIZED  TO  1  IN  THE  PROGRAM 
"  SUM  IS  AUTOMATICALLY  SET  TO  0  AT  THE  START  OF  EXECUTION 
' 1  NUMBER  AND  N  ARE  BOTH  REAL  BY  IMPLICATION 

(2)  To  search  through  a  list  >f  numbers  for  all  those  that  lie 
between  a  lower  and  an  upper  bound;  to  print  such  numbers, 

PREAMBLE 

NORMALLY,  MODE  IS  INTEGER 

DEFINE  LIST  AS  A  1- DIMENSIONAL  ARRAY 

END 

READ  N  "NUMBER  IN  LIST",  X  "LOWER  BOUND"  AND  Y  "UPPER  BOUND 
RESERVE  LIST  (*)  AS  N  LET  INDEX=1 

•  (  somewhere  in  here  program  statements 

•  \  assign  values  to  each  element  of  LIST 

'LOOP'  IF  LI  ST  ( INDEX)  IS  GREATER  THAN  X,  "AND" 

IF  LIST( INDEX)  IS  LESS  THAN  Y, 

PRINT  1  LINE  WITH  INDEX  AND  LIST( INDEX)  LIKE  THIS 
NUMBER  ***  =  ♦«*.*** 

OTHERWISE 

REGARDLESS 

IF  INDEX  IS  LESS  THAN  N,  ADD  I  TO  INDEX  GO  TO  LOOP 
ELSE  STOP  END 

(3)  To  read  a  matrix  (double-subscripted  variable)  of  decimal 
numbers  and  pairs  of  subscript  values;  to  print  the  corresponding 
matrix  value  and  the  matrix  value  whose  subscripts  are  the  reverse 
of  the  pair  read  in. 
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PREAMBLE 

DEFINE  MATRIX  AS  A  2-DIMENSIONAL  ARRAY 
DEFINE  I,  J  AND  N  AS  INTEGER  VARIABLES 
END 

READ  N  ' 'THE  DIMENSIONS  OF  THE  ARRAY 
RESERVE  MATRIX  AS  N  BY  N  READ  MATRIX 
'READ. LABEL'  READ  I, J  "THE  SUBSCRIPT  PAIR 
PRINT  2  LINES  WITH  I,J,MATRIX(I,J)  AND  MATRIX(J.I)  THUS 
I=*  J=*  MATRIX(I.J)  =  *♦*.** 

MATRIX(J,I)  =  ***.♦* 

GO  TO  READ. LABEL  END 

Note  that  there  Is  no  test  to  terminate  the  program;  it  continues  reed¬ 
ing  cards  and  printing  until  there  are  no  more  data  cards  to  be  read. 

(4)  To  illustrate  the  "parentheses  rule"  as  it  applies  to  the 
evaluation  of  expressions  containing  subscripted  variables. 

Rule:  Expressions  containing  parentheses  are  processed 

from  left  to  right  and  all  parentheses  are  removed 
before  an  expression's  final  value  is  computed. 

In  the  parenthesis  removal  process,  subscripted 
variables  are  fetched  from  storage  and  their 
values  put  in  temporary  unsubscrlpted  variables. 

Compound  expressions  containing  parentheses  are 
simplified. 

(4a)  LET  TEMP  =  X(I)  +  Y(U)  is  executed  by,  first,  performing 
the  substitutions  X(I)  -*■  x,  Y(J)  -*■  Z;  second,  by  evaluating  the  ex¬ 
pression  x  +  Z;  and  third,  by  storing  the  result  in  the  variable  TEMP, 
(4b)  LET  TEMP  *  X(I+J)  +  Y(J)  is  executed  by,  first,  evaluating 
the  expression  I+J  -*■  1;  second,  using  this  value,  by  performing  the 
substitution  X(i)  -+■  X;  third,  by  performing  the  substitution  Y ( J )  +  Z; 
and  fourth,  by  evaluating  and  storing  the  value  of  the  expression  x  +  Z. 

(4c)  LET  TEMP  *  X(I  +  X(I+J)  +  5)  +  Y(J  +  X(I+J)  +  3)  is  executed 
by  eliminating  parentheses  from  left  to  right  and  simplifying  nested 
parentheses  from  the  inside  out.  Computations  and  simplifications 
are  made  in  the  following  order: 


See  Sec.  2-06  for  a  discussion  of  this  statement.  It  reads  the 
N*N  element  values  of  MATRIX  that  were  defined  in  the  RESERVE  state¬ 
ment  . 
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(1) 

I+J  -  1 

(5) 

I+J  -  1 

(2) 

X(1)  -  X 

(6) 

XO)  -  x 

(3) 

I+x+5  -*■  j 

(7) 

J+x+3  -► 

(*) 

x(j)  -  2 

(8) 

Y(J)  -  q 

(9) 

z+q  -  TEMP 

Since  common  subexpressions  may  not  be  recognised,*  e.g.,  (1)  and  (5), 
efficiency  can  be  achieved  by  computing  them  in  separate  statements. 

(5)  To  illustrate  the  use  of  INTEGER  and  REAL  arrays  in  the  con¬ 
text  of  a  realistic  problem,  the  following  program  processes  sales 
order  cards  for  a  department  store  generating  shipment  orders,  notices 
of  out-of-stock  conditions,  and  final  inventory  reports.  The  program 
assumes  that  several  stores,  located  in  different  places,  sell  the 
same  items,  that  all  merchandise  is  shipped  from  one  central  location, 
and  that  top  management  is  interested  in  the  stores'  performance. 

PREAMBLE 

NORMALLY,  MODE  IS  INTEGER 
DEFINE  STOCK  AS  A  2-DIMENSIONAL  ARRAY 
DEFINE  STORE  AND  ITEM  AS  1-DIMENSIONAL  ARRAYS 
DEFINE  PRICE,  ITEM. INVENTORY  AND  STORE. INVENTORY  AS 
REAL,  1 -DIMENSIONAL  ARRAYS 
END 

RESERVE  STOCK  AS  100  BY  10,  STORE  AND  STORE. INVENTORY  AS  10, 

ITEM,  PRICE  AND  ITEM. INVENTORY  AS  100 
READ  STOCK  AND  PRICE  "LAST  PERIODS  FINAL  STOCK 
"BALANCE  AND  CURRENT  PRICES 
'SALE'  READ  STORE. NUMBER,  ITEM. NUMBER  AND  QUANTITY 
IF  ITEM. NUMBER  IS  ZERO,  GO  TO  SUMMARY  ELSE 
IF  STOCK  (ITEM. NUMBER,  STORE. NUMBER)  IS  LESS  THAN  QUANTITY 
PRINT  3  LINES  WITH  STORE. NUMBER,  ITEM. NUMBER,  QUANTITY  AND 
QUANTITY-ST0CK( ITEM. NUMBER,  STORE. NUMBER)  THUS 
STORE  **  IS  LOW  ON  STOCK  OF  ITEM  NUMBER  *** 

ORDER  OF  ****  UNITS  CANNOT  BE  FILLED 

****  UNITS  ARE  BEING  BACKORDERED 

IET  QUANTITY*  ST0CK( ITEM, NUMBER, STORE .NUMBER) 

OTHERWISE  SUBTRACT  QUANTITY  FROM  STOCK  ( ITEM. NUMBER, 

STORE. NUMBER)  PRINT  1  LINE  WITH  QUANTITY,  ITEM. NUMBER 
AND  STORE. NUMBER  AS  FOLLOWS 

SHIP  ****  UNITS  OF  ITEM  TO  STORE  ** 

GO  TO  SALE 


*This  la  a  function  of  the  optimiiatlon  procedures  used  in  dlt- 
ferent  implementations  of  the  language. 
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' SUMMARY'  LET  I  =  0 

'LOOP'  LET  J  =  0  ADD  1  TO  I.  IF  1  =  11,  GO  TO  PRINT  ELSE 

'AGAIN'  ADD  1  TO  J  IF  J  -  101,  GO  TO  LOOP  ELSE 

ADD  STOCK( J ,1 )  TO  STORE(I)  "STORE  SALES" 

ADD  STOCKfJ.I)  TO  ITEM{J)  "ITEM  SALES" 

ADD  STOCK{J,I)*PRICE(J)  TO  STORE, INVENTORY ( I ) 

"SAlES  DOLLARS" 

GO  TO  AGAIN 

'PRINT'  LET  J  *  0 

'NEXT'  ADD  1  TO  J.  IF  J  =  101 ,  GO  TO  OUTPUT  ELSE 

LET  ITEM. INVENTORY(J)  =  ITLM(J1*PRICE(J) 

"ITEM  DOLLARS" 

GO  TO  NEXT 

•OUTPUT'  START  NEW  PAGE 

PRINT  1  LINC  AS  FOLLOWS 
SUMMARY  REPORT  AT  END  OF  CURRENT  PERIOD 
SKIP  2  OUTPUT  LINES 

LIST  STORE, .STORE. INVENTORY,  ITEM,  ITEM. INVENTORY 
AND  STOCK' 

STOP 

END  ' 'OF  PROGRAM 


2-05  CONTROL  PHRASES 


A  SIMSCRIPT  II  statement  can  be  executed  more  than  once  by  append¬ 
ing  a  control  phrase  to  it.  This  concept  is  illustrated  by  the  example 

FOR  I  =  1  TO  10.  LET  X(l)  =  5 


The  phrase  FOR  I  =  1  TO  10  controls  the  execution  of  the  LET 
statement  following  it,  causing  the  statement  to  be  repeated  10  times, 
first  with  1=1,  next  with  I  =  2,  then  wi^h  I  =  3,  and  so  on,  until 
it  is  executed  for  the  last  time  vit'n  I  =  10.  The  effect  of  the 
example  is  to  set  the  first  10  elements  of  the  array  X  equal  to  5. 

The  general  form  of  a  control  phr.ise  is 

FOR  variable  -  arith  expr.  TO  arith  exvr  BY  arith  '•xpr 

1  w  J 


Any  REAL  or  INTEGER  uneubscripted  variable  can  be  used  as  the  variable 
in  the  control  phrase.  The  first  time  a  controlled,  staie-neni  (like 
the  LET  statement  above)  is  executed,  the  control  phrase  variable  is 
set  equal  to  the  value  of  expression^;  a  type  conversion  is  made  if 


See  Sec.  2-11  for  a  discussion  of  this  statement. 
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necessary.  If  the  value  of  expression^  is  not  greater  than  that  of 
expression^  (it  usually  is  not),  the  controlled  statement  is  executed. 
After  execution,  the  value  of  expression^  is  added  to  the  control 
phrase  variable,  and  if  this  new  value  is  again  less  than  expression^ 
the  controlled  statement  is  repeated.  This  process  continues,  with 
the  control  phrase  variable  taking  on  successively  larger  values  until 
it  exceeds  the  value  of  expression^.  A  conma  at  the  end  of  a  control 
phrase  is  optional. 

If  the  phrase  "BY  expression^"  is  left  out  of  the  control  phrase, 
as  in  the  above  example,  a  value  of  1.0  is  assumed  for  expression^. 
This  short  form  of  the  control  phrase  is  convenient  for  executing  a 
controlled  statement  over  a  range  of  cuccessive  subscript  values.  The 
longer  form  is  useful  for  statements  in  which  calculations  involving 
the  control  variable  are  performed,  as  in  the  program  segment 

FOR  N  *  LOW  TO  HIGH  BY  INCREMENT,  ADD  INCREMENT *N  TO  SUM 

The  foregoing  statement  does  not  operate  on  a  subscripted  vari¬ 
able,  but  uses  the  properties  of  the  control  phrase  to  perform  a 
series  of  calculations  that  follow  some  prescribed  order  and  accom¬ 
plishes  the  same  task  as  the  statements 

LET  N  -  LOW 

'LOOP1  ADD  INCkEMENT*N  TO  SUM 

ADD  INCREMENT  TO  N  IF  N <H I GH ,  GO  TO  LOOP  ELSE... 

Arithmetic  expressions  in  control  phrase  which  have  so  far 

been  denoted  as  expression^,  expression.,,  and  expression^,  from  he-e 
on  will  be  labeled  e^,  e^,  and  e^.  Each  one  can  be  any  legitimate 
arithmetic  expression;  they  need  n't  be  of  the  same  mode,  since  con¬ 
version*  will  be  mace  if  necessary.  If  any  of  the  expressions  are 
REAL,  all  computations  involved  in  computing  the  successive  value* 
of  the  control  ohrase  variable,  railed  v  from  here  on,  will  be  REAL. 


The  above  Illustration  shows  that  it  is  impossible  to  step  back¬ 
ward,  as  for  example,  I  ■  5,  4,  3,  2,  1,  with  this  control  phrase. 

A  variant  of  the  phrase  in  used  fcr  this  purpose.  The  form  is 

FOR  v  BACK  FROH  e]  TO  e2  BY  e3 

Everything  applicable  to  the  forward  stepping  control  phrase 
applies  to  this  phrase;  the  only  difference  is  in  the  direction  in 
which  the  control  phrase  variable  changes  value. 

Control  phrases  can  be  nested  together  for  dealing  with  arrays 
of  more  than  one  dimension,  as  in 

FOR  I  «  1  TO  N.  FOR  J  -  1  TO  M,  LET  X(I.J) -VALUE 

Used  this  way,  the  control  phrase  on  the  left  Is  said  to  be  an  outer 
phrase,  and  the  phrase  on  the  right  an  Inner  phrase.  Ir.  computing 
successive  values  of  I  and  J,  the  inner  phrase  is  stepped  through  its 
entire  range  of  values  for  each  value  of  the  outer  control  phrase 
variable.  The  controlled  statement  is  executed  each  time.  Thus,  If 
N  ■  3  and  H  *  4,  the  above  statement  would  be  executed  In  the  sequence 
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Step 

I 

T 

Statement  Executed 

1 

1 

1 

LET  X(1 .1 )  •  VALUE 

2 

1 

2 

LET  X ( 1 ,2)  ■  VALUE 

3 

1 

3 

LET  X ( 1 ,3)  -  VALUE 

4 

1 

4 

LET  X(1 .4)  ■  VALUE 

5 

2 

1 

LET  X ( 2 , 1 )  -  VALUE 

6 

2 

2 

LET  X(2 ,2)  -  VALUE 

7 

2 

3 

LET  X(2 ,3)  »  VALUE 

8 

2 

4 

LET  X(2 ,4)  3  VALUE 

9 

3 

1 

LET  X ( 3 , 1 )  »  VALUE 

10 

3 

2 

LET  X ( 3 . 2 )  3  VALUE 

11 

3 

3 

LET  X(3,3)  3  VALUE 

12 

3 

4 

LET  X ( 3 ,4 )  3  VALUE 

An  indefinite  number  o„  phrases  can  be  neated  together  in  this 
way.  Each  auccessive  phrase  is  an  outer  phraae  to  its  right-hand 
phrase,  and  an  tuner  phraae  to  its  left-hand  phrase.  Control  vari- 
ablea  of  outer  phraae*  can  be  used  in  the  expressions  ,  anC*  ^3 

of  inner  phrases,  as  their  values  are  defined  within  these  phrases. 
Tnus  we  Bight  have  the  nested  phrases 

FOR  I  *  1  TO  N,  FOR  J  -  1  TO  I.  LET  X(I,J)  -  0 

If  N  3  3  this  statement  will  be  executed  as 


Step 


r" 

?  j 
*  -  + 


Statement  Executed 

LET  1(1,1)  *  0 
LET  1(2,1 )  e  0 
LET  1(2.2)  *  0 
LET  1(3,1)  *  0 
LET  1(3,2)  «  3 


3  j  3  !  LET  1(3.3)  3  0 


Table  .'-2  contains  a  list  of  the  5I*©CJIP7  II  statement*  ,i*scr;S#i 
thus  far  that  are  controllable  ar.>i  unoont  ro  i  l*b  le  by  subscript  control 


p n rases . 
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Table  2-2 

SUBSCRIPT  STATEMENTS 


Controllable 
Statement  Types 

Uncontrollable 
Statement  Types 

LET 

IF 

ADD 

GO  TO 

SUBTRACT 

STOP 

READ 

NORMALLY 

PRINT 

DEFINE 

START  NEW 

PREAMBLE 

SKIP 

END 

RESERVE3 

^ow  this  might  usefully  be  done  is 
explained  in  Sec.  2-08. 


For  example: 

(a)  FOR  I  =  1  TO  MAX,  READ  X(I) 

reads  the  successive  values  X(1),  X(2),  X(MAX) 

(b)  FOR  X  =  1  TO  N,  ADD  X**2  TO  SUM 

N  2 

computes  £  X  =  N*X**2 
X=1 

(c)  FOR  I  =  1  TO  N,  ADD  X(I)**2  TO  SUM 

N  2 

computes  \  XT 
1=1  1 

(d)  PRINT  1  LINE  AS  FOLLOWS 

INDEX  VALUE 

FOR  INDEX  =  5  TO  10,  PRINT  1  LINE  WITH  INDEX  AND 

VALUE ( INDEX )  LIKE  THIS 
★★  ★★  ★★ 

prints  a  labeled  list  of  numbers  stored  in  the 
one-dimensional  array  VALUE. 

2-06  HEADING  SUBSCRIPTED  VARIABLES 

Subscripted  variable  values  can  be  read  by  the  READ  statement  in 
several  ways.  The  statement  can  be  used  to  read  individual  elements 
of  arrays,  entire  arrays,  or  elements  of  arrays  under  the  control  of 
one  or  more  control  phrases.  In  the  following  paragraphs  let  LIST 
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be  a  singly-subscripted  variable  defined  by  the  8tatement  RESERVE 
L I ST ( * )  AS  10. 

Individual  elements  of  arrays  are  read  by  listing  their  names 
(the  array  identifier  followed  by  the  appropriate  subscript  expres- 
si.n(s)  enclosed  in  parentheses)  in  the  list  of  a  READ  statement. 
Values  of  LIST(l),  LIST{5),  and  LIST(9)  are  read  by  the  statement 

READ  LIST(l),  LIST (5) ,  LIST(9) 

A  variable  list  can  contain  array  elements  whose  subscript  designators 
are  expressions,  such  as  LIST(N*M+2/J)  or  LIST(l),  as  long  as  the 
variables  appearing  in  these  expressions  have  had  values  assigned  to 
them.  They  are  assigned  if  they  appear  in  a  READ  statement  before 
their  use  in  the  same  statement  as  subscripts,^  as  in 

READ  N.M,  LIST(N),  LIST(LIST(N)+M) 

This  example  shows  that  both  unsubscripted  and  subscripted  variables 
can  appear  in  the  same  READ  statement  list. 

Entire  arrays  can  be  read  by  using  only  their  names  in  a  READ 
list.  READ  LIST  reads  the  10  elements  of  LIST,  as  defined  by  the 
RESERVE  statement;  numbers  are  read  and  assigned  to  the  elements  of 
LIST  in  increasing  subscript  order,  the  first  data  item  is  assigned 
to  LIST { 1 ) ,  the  next  to  LIST ( 2 )  and  so  on.  If  LIST  were  a  multi¬ 
dimensional  array,  the  data  would  be  assigned  to  successive  elements 
whose  subscripts  change  in  increasing  order,  with  the  last  subscript 
position  varying  most  rapidly.  A  two-dimensional  array  is  read  in 

row  by  row,  as  in  LIST(1,1),  LIST(!,2),  LIST(1,3) . LIST(l.N), 

LIST(2,1),  LIST (2,2) ,  ....  LIST(2,N),  etc. 

Mixtures  of  unsubscripted  variables,  elements  of  arrays,  and 
entire  arrays  can  be  read  in  one  READ  statement.  If  LIST  and  VECTOR 
are  one-dimensional  arrays,  TABLE  a  two-dimensional  array,  and  X  and 
Y  unsubscripted  variables,  the  statement 

READ  X,  L I ST ( 7 ) ,  VECTOR,  TABLE,  Y,  LIST(Y) 
reads  a  data  item  and  assigns  its  value  to  X;  reads  another  data  item 


t 


The  statement's  variable  list  is  processed  from  left  to  right. 
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and  assigns  Its  value  to  LI ST (7);  read&  as  many  data  Items  as  there 
are  elements  In  the  array  VECTOR  and  assigns  them  to  the  elements  of 
VECTOR;  reads  as  many  data  Items  as  there  arc  In  the  array  TABLE  and 
assigns  them  to  the  elements  of  TABLE;  reads  a  data  Item  and  assigns 
It  to  Y;  and  reads  a  data  Item  and  assigns  It  to  th^  element  of  LIST 
Indexed  by  the  subscript  Y. 

A  subscript  control  phase  can  also  be  used  to  control  the  selec¬ 
tion  of  array  elements  In  a  READ  statement.  The  statement 

FOR  INDEX  =  L  TO  N,  READ  LIST( INDEX) 

r-ads  N  data  Items  and  assigns  their  successive  values  to  the  elements 
LIST(L) ,  ....  LIST(N). 

Some  examples  Illustrate  a  few  of  the  many  forms  a  READ  statement 
can  take.  Xt  Y,  and  Z  are  subscripted  variables  defined  by  the  state¬ 
ment 

RESERVE  X(*),Y(*)  AS  4,  Z(*,*)  AS  4  BY  4 
while  A,  B,  and  C  are  unsubscrlpted  variables. 

(1)  READ  A,B,C,X(1 ) ,Y(3) ,Z(2,3)  reads  six  numbers  and  assigns 
their  values  to  A,  B,  C,  and  to  the  three  subscripted 
variables  X(l)f  Y(3),  and  Z(2,3). 

(2)  READ  A,  X,  B  reads  six  numbers  und  assigns  their  values  to 
A,  X(l),  X(2),  X(3),  X(4),  and  B,  respectively. 

(3)  READ  A,B  FOR  1=1  TO  3,  READ  X ( I )  READ  Y  reads  nine  numbers 
and  assigns  their  values  to  A,  B,  X(l),  X(2),  X(3),  Y(l), 
Y(2),  Y(3),  and  Y(4),  respectively. 

(4)  FOR  I  =  1  TO  4,  READ  X(I)  AND  Y(I)  reads  eight  numbers  and 
assigns  their  values  to  X ( 1 } ,  Y(l),  X(2),  Y(2),  X(3),  Y ( 3) , 
X(4),  and  Y(4),  respectively. 

(5)  READ  Z  reads  sixteen  numbers  and  assigns  them  to 


z 

I1*1! 

ZP  .2; 

z 

[1.3| 

Z 

1,4 

z 

2.1 ) 

z  2,2; 

z 

2,3 

z 

2.4 

z 

3.1) 

z  3,2; 

z 

3,3! 

z 

3.4] 

z 

4,1 ) 

Z(4,2] 

z 

'4,3] 

z 

'4,4) 

,  respectively. 

(6)  FOR  I  *  1  TO  4,  FOR  J  =  1  TO  4,  READ  Z(I,J)  reads  sixteen 
numbers  and  assigns  them  as  in  (5). 

(7)  FOR  I  *  1  TO  4,  READ  Z(2,I)  reads  four  numbers  and  assigns 
them  to  the  elements  of  the  second  row  of  Z:  Z(2,l),  Z(2.2), 
Z(2,3),  Z(2,4),  respectively. 


The  above  examples  show  that  a  control  phrase  does  not  control 
the  Index  of  a  variable  within  a  READ  statement,  but  controls  the 
entire  READ  statement.  Thus,  each  variable  that  appears  in  a  con¬ 
trolled  READ  statement  should  contain  the  control  variable  as  a  sub¬ 
script;  if  it  does  not,  successive  data  values  are  assigned  to  this 
variable  as  the  control  phrase  iterates  over  the  range  of  the  control 
phrase  variable.  This  is  seen  in  the  statement  below,  which  reads 
and  assigns  six  successive  values  to  the  unsubscripted  variable  A  and 
the  subscripted  variables  X(I).  Naturally,  all  but  the  last  value  of 
A  Is  lost, 

FOR  I  =  1  TO  :,  READ  A,  X(I) 


2-07  CONTROL  PHRASES  EXTENDED  TO  INCLUDE  CONTROL 
OVER  MORE  THAN  ONE  STATEMENT 

The  concept  of  a  control  phrase  (sometimes  called  a  FOR  phrase) 
can  be  expanded  to  permit  the  phrase  to  control  not  one,  but  an  arbi¬ 
trary  number  of  statements.  Statements  to  be  controlled  as  a  group 
are  enclosed  between  the  words  DO  and  LOOP.  A  control  phrase  controls 
grouped  statements  in  exactly  the  same  way  it  controls  a  single  state¬ 
ment.  As  an  example,  consider  a  program  that  reads  data,  examines 
each  item  to  see  if  it  has  a  certain  property,  and  indicates  by  a 
coded  reply  whether  or  not  each  item  passes  the  property  test. 

PREAMBLE 

NORMALLY,  MODE  IS  INTEGER  DEFINE  X  AND  TEST. NUMBER  AS  REAL  VARIABLES 

DEFINE  CODE  AS  A  1 -DIMENSIONAL  ARRAY 

END 

READ  NUMBER.OF. SAMPLES  AND  TEST. NUMBER 
RESERVE  CODE  AS  NUMBER. OF. SAMPLES 
FOR  I  *  1  TO  NUMBER. OF. SAMPLES, 

DO 

READ  X 

IF  X  IS  LESS  THAN  TEST. NUMBER,  LET  CODE ( I )  »  1 
REGARDLESS  ADD  CODE ( I )  TO  SUM 

LOOP 

PRINT  1  LINE  WITH  100*(SUM/NUMBER. OF. SAMPLES)  THUS 
PER  CENT  ITEMS  LESS  THAN  TEST  NUMBER  =  **.** 

STOP  END 


In  the  foregoing  example  the  statements  READ,  IF,  LET,  REGARDLESS, 
and  ADD  appear  between  the  statements  DO  and  LOOP.  The  logic  of 
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these  statements  is  exercised  once  for  each  iteration  of  the  control¬ 
ling  FOR  phrase. 

A  DO  loop  (as  we  shall  call  this  expanded  structure  from  here 
on)  can  also  be  constructed  from  a  backward  iterating  FOR  phrase.  Its 
grammar  can  often  be  improved  by  the  optional  words  THE  FOLLOWING  or 
THIS  after  the  word  DO,  and  the  substitution  of  the  word  REPEAT  for 
LOOP.  Thus  we  can  write 

FOR  N  =  1  TO  10,  DO  THE  FOLLOWING... REPEAT  or 

FOR  N  =  1  TO  10,  DO... LOOP  and 

FOR  I  BACK  FROM  10  TO  1,  DO  THIS... LOOP  or 

FOR  I  BACK  FROM  10  TO  1 ,  DO... REPEAT 

Normally,  a  DO  loop  is  executed  over  the  entire  range  of  a  FOR 
phrase.  The  value  of  tha  control  phrase  variable  upon  normal  exit 
from  a  loop  (through  the  LOOP  statement,  that  is)  is  the  first  com¬ 
puted  value  of  v  that  fails  the  continuance  test.  If  the  loop  is 
terminated  at  any  other  time,  as  by  a  GO  TO  statement  within  e.  loop 
that  transfers  control  to  a  statement  outside  the  loop,  the  variable 
retains  its  current  value. 

Since  the  variable  V,  and  the  control  expressions  e£  and  can 
be  variables  or  expressions  containing  variables,  they  can  be  re¬ 
computed  within  a  loop.  This  can  affect  the  sequence  of  values  of 
the  control  phrase  variable,  either  shortening  or  extending  it,  and 
it  can  affect  the  computations  performed  by  the  program.  The  follow¬ 
ing  two  examples  illustrate  the  use  of  recomputed  FOR  phrase  values 
within  a  loop: 

(1)  RESERVE  VALUE(* )  AS  N 

FOR  V  *  I  TO  J  BY  K,  DO  THE  FOLLOWING 

IF  VALUE(V)  <  V,  ADD  1  TO  K  ALWAYS  ADD  VALUE(V)  TO  SUM 

LOOP 

(2)  FOR  V  =  I  TO  J  BY  V*2,  DO  ...  LOOP 

In  Example  (2),  if  I  *  1  initially,  the  variable  V  takes  on  suc¬ 
cessive  values  of  1,  3,  9,  27,  81,  ...,  until  V  is  greater  than  J. 

As  Implied  above,  labels  can  be  used  within  a  loop  to  transfer 
control  around  statements  in  the  loop,  or  to  end  the  loop  prematurely 
by  transferring  to  a  statement  outside  it.  It  is  possible  o  transfer 
in  and  out  of  loops  at  will  as  long  as  each  transfer  rec  0..xze a  the 
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organization  of  the  FOR  phrase  mechanism  and  does  not  expect  more 
from  the  compiler  than  it  is  able  to  do.  Each  FOR  phrase  is  compi"ed 
into  a  series  of  program  steps  that  work,  roughly,  as  follows  (the 
word  roughly  is  used  since  variations  of  the  FOR  statement  require 
different  treatments,  e.g.,  the  direction  of  the  inequality  will 
change  in  the  IF  test  when  a  BACK  FROM  phrase  is  used): 

The  program 

FOR  V=e,  TO  e0  BY  e, 

DO  1  i  6 
Statement  group 
LOOP 

is  compiled  into  the  program 

LET  V=e, 

GO  TO  L.2 
•L.T  ADD  e,  to  V 
'L.2'  IF  V  *  e9.  GO  TO  L.3 
OTHERWISE^ 


Statement  group 


GO  TO  L.l 

'1.3  continue  with  program 

L.l,  L.2,  and  L.3  are  local  labels  that  the  compiler  constructs;  they 
cannot  be  used  by  a  SIMSCRIPT  II  programmer. 

DO  loops  can  be  nested  within  one  another  for  control  over  sub¬ 
scripted  variables  with  two  or  more  subscripts.  Recall  that  subscript 
indexing  takes  place  within  the  bounds  of  the  DO  and  LOOP  or  REPEAT 
statements.  To  print  a  matrix  of  numbers,  we  might  write: 

FOR  I  =  1  TO  N,  DO 
FOR  J  ■  1  TO  M,  DO 

PRINT  1  LINE  WITH  I.  J,  MATRIX(I.J)  AS  FOLLOWS 

MATRIX(V)  =  ***** 

LOOP  "ON  J,  THE  SECOND  SUBSCRIPT* 

REPEAT  "ON  I,  THE  FIRST  SUBSCRIPT 


The  careful  reader  will  note  that  this  statement  is  not  required, 
as  the  preceding  FOR  only  controls  one  statement.  In  fact,  neither 
the  preceding  DO  nor  the  following  REPEAT  is  required. 


'■'"Mik*  '•  V  .*  «#'«■&.  '■*  * 


-54- 


This  example  can  be  clarified  by  using  Indentation  like  that 
used  with  nested  IF  statements. 

FOR  I  *  1  TO  N,  DO 
FOR  J  -  1  TO  M,  DO 

PRINT  1  LINE  WITH  I,  J,  MATRIX! I, J)  AS  FOLLOWS 
MATRIX(*,*)  -  *.*** 

LOOP  "J" 

REPEAT  "I" 

If  N  =  2  and  M  *  3,  this  program  prints: 


MATRIX(l.l) 

*  • 

MATRIX! 

1.2 

z  . 

MATRIX 

|l  .3 

m  m 

MATRIX 

1 2 , 1 

*  mm 

MATRIX 

2.2 

n  - 

MATRIX 

[2,3] 

S  m 

*  2-08  PROGRAMMER- DEFINED  ARRAY  STRUCTURES— POINTER  VARIABLES 

It  was  previously  stated  that  each  array  is  assigned  a  number  of 
computer  words  equal  to  the  product  of  its  subscript-size  expressions. 
This  is  not  quite  correct.  Each  array  has  as  many  computer  words  as 
contain  the  values  of  its  elements,  plus  additional  words  that  point 
to  these  element  values.  This  section  describes  how  these  pointer 
words  are  used  to  connect  array  storage,  and  how  they  can  be  used  to 
a  progranmer's  advantage. 

Each  array  has  a  base  pointer  that  points  to  the  array  as  it  is 
structured  in  memory.  7or  a  one-dimensional  array  X,  the  base  pointer 
is  named  X(*) ,  for  a  two-dimensional  array  Y,  the  base  pointer  is 
named  Y(*,*)t  and  so  on.  The  base  pointer  is  used  in  a  RESERVE  state¬ 
ment  when  memory  space  is  allocated  to  an  array.  The  function  of  the 
RESERVE  statement  is  to  allocate  computer  words  to  an  array  and  assign 
the  internal  location  of  these  words  as  the  value  of  the  base  pointer. 

In  the  following  examples,  one-,  two-,  and  three-dimensional 
arrays  are  used  to  describe  how  pointer  words  are  employed  in  struc¬ 
turing  arrays.  The  structure  of  higher  dimensional  arrays  follows 
directly. 

The  base  pointer  of  a  one-dimensional  array  points  directly  to 
data  elements  that  are  stored  contiguously  in  whatever  mode  the  array 
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has  been  declared.  The  beee  pointer,  whose  value  Is  a  computer  loca¬ 
tion,  Is  always  In  INTEGER  mode.  A  one-dimensional  array  X,  allocated 
storage  by  the  statement 

RESERVE  X(*)  AS  10 

Is  stored  as: 


The  base  pointer  is  in  a  computer  word  that  is  separated  from  the 
array  elements.  The  actual  locations  assigned  to  the  elements  depend 
upon  the  order  in  which  RESERVE  Instructions  have  been  executed  in  a 
program. 

The  base  pointer  of  a  two-dimensional  array  points,  not  to  its 
doubly-subscrlpted  data  elements,  but  to  an  array  of  pointers  that, 
in  turn,  point  to  the  elements  of  the  roua  of  the  array.  The  base 
pointer  and  all  the  row  pointers  are  in  INTEGER  mode;  the  data  element 
words  are  in  whatever  mode  the  array  has  been  declared.  A  two-dimen¬ 
sional  array  X,  which  has  been  allocated  storage  by  the  statement 

RESERVE  X(*,*;  AS  5  BY  3 

is  stored  as: 
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elements 


A  three-dimensional  array  is  treated  similarly  —  the  base  pointer 
points  to  an  array  of  row  pointers,  each  of  which  points  to  an  array 
of  xlunn  pointers,  of  which  each,  in  turn,  points  to  an  array  of  data 
elements.  A  three-dimensional  arrav  X,  which  has  been  allocated 
storage  by  the  statement 

RESERVE  X(\*,*)  AS  5  BY  3  BY  2 
is  stored  as: 
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Every  element  reference  with  at  least  one  asterisk  In  its  sub¬ 
script  list  is  a  pointer;  every  element  reference  without  asterisks 
In  its  subscript  list  is  a  data  word.  Pointers  are  cascaded  from  one 
dimension  to  another,  ending  at  a  data  word  array. 

All  of  this,  while  seemingly  complicated,  need  not  be  bothersome 
to  a  programmer.  Arrays  are  allocated  storage  by  the  RESERVE  state¬ 
ment,  and  elements  (subscripted  variables)  are  referenced  by  previously 
described  methods;  pointer  words  need  not  be  mentioned  explicitly, 
nor  need  the  manner  in  which  rows  and  columns  of  arrays  are  linked  be 
taken  into  consideration.  A  programmer  has  the  advantage  of  a  flexible 
array  mechanism  without  being  penalized  if  he  does  not  choose  to  use  it. 

The  pointer  mechanism  provides  two  primary  advantages.  The  first 
and  most  apparent  advantage  is  that  the  potential  for  fitting  large 
programs  into  core  storage  is  increased  because  it  is  unnecessary  to 
locate  an  unused  block  of  core  capable  of  holding  an  entire  array,  it 
being  necessary  only  to  find  a  number  of  smaller  blocks  that  can  be 
linked  together.  The  second,  and  potentially  more  useful,  advantage 
is  the  ability  to  manipulate  pointers  as  though  they  were  data  values. 
This  permits  the  construction  of  arbitrary  data  structures  to  suit 
the  specific  requirements  of  different  problems,  and  is  accomplished 
by  allowing  the  asterisk  notation  used  above  for  pointers  to  appear 
in  all  SIMSCRIPT  II  statements.  The  notation  is  meaningful  only  in 
a  small  number  of  statements,  of  course.  The  utility  and  application 
of  this  feature  are  best  described  in  a  series  of  examples. 

(1)  It  is  used  to  construct  a  "ragged  table,"  a  two-dimensional 
array  with  a  different  number  of  elements  in  each  row.  The  construc¬ 
tion  follows: 

(a)  Set  up  a  base  pointer  and  an  array  of  row  pointers 

RESERVE  TABLE (*,*)  AS  5  BY  * 

This  statement  assigns  an  array  of  five  elements,  each  of  which  con¬ 
tains  an  unassigned  pointer,  to  the  base  pointer  TABLE(*,*).  The 
asterisk  in  the  array  assignment  clause  5  BY  *  indicates  that  only 
pointers,  not  data  values,  are  to  be  stored.  After  execution  oi  this 
statement,  the  following  structure  exists  in  memory: 
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row  POINTERS 

TABLE(1.  *) 
TABLE(2,  *) 
TABLE(3,») 
TABLE  (4,  *) 
TABLE  t5.*) 


The  base  pointer  points  to  the  array  of  row  pointers;  the  row  pointers 
do  not  point  to  anything  since  arrays  have  not  yet  been  assigned  to  them. 

(b)  Set  up  a  loop  to  assign  data  arrays  to  each  of  the  row 
pointers.  Since  a  dimension  must  be  given  for  each  row,  read  a  value 
for  each  row  from  a  dat  .  ard. 

FOR  1=1  TO  S, 

DO  READ  0 

RESERVE  TABLE (I,*)  AS  D 
LOOP 

The  RESERVE  statement  assigns  an  array  of  D  elements  to  each  row 
pointer  TABLE(I,*),  as  I  varies  from  1  to  5.  If  the  values  of  D 
read  are  4,  2,  6,  1,  and  3,  respectively,  the  final  ragged  table 
structure  locks  as  follows: 

DATA  ELEMENTS 

TABLE(I,  I) 

TABLE(1.  2) 

TABLE  (1,  3) 

TABLEf  1,  4) 

TABLE(2,  1)  1 

T ABLE(2,  2 ) 

TABLE  (3.17 
TABLE (3.  2~ 

TABLE (3,  3) 

TABLE (3,  4) 

TAbLEf3,  5) 

TABLE (3.  6 ) 

QtABU(4.  n 

[  TABLE (6.  h 
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The  ragged  table  TABLE(I,J)  can  be  used  the  same  as  any  rectangular 
array.  The  only  care  a  programmer  must  exercise  Is  to  ensure  that 
he  does  not  ask  for  a  nonexistent  array  element,  as,  for  example, 
TABLE(4,3)  in  the  above  illustration. 

(2)  Section  2-03  indicates  that  once  an  array  has  been  reserved 
it  cannot  be  reserved  again.  To  prevent  this  from  hapoening,  the 
SIMSCRIPT  II  system  ignores  instruct  ons  to  reserve  an  array  when  the 
pointer  to  the  array  has  a  value  in  it.  When  a  program  is  first  ini¬ 
tialized,  all  array  points. j  are  zero,  making  the  first  RESERVE  pos¬ 
sible.  After  this,  the  presence  of  a  nonzero  valua  in  a  pointer 
variable  dictates  whether  or  not  a  reserve  will  be  executed. 

At  times  i t  is  useful  to  be  able  to  perform  multiple  array  reser¬ 
vations,  keeping  track  of  array  pointers  as  they  are  replaced,  This 
can  be  done  by  storing  a  pointer,  setting  it  to  zero,  and  executing 
a  new  RESERVE  statement.  Although  the  pointer  variable  will  point 
to  the  latest  array  that  is  reserved,  it  is  possible  at  anv  time  to 
restore  it  to  a  previous  value  (which  still  points  t:  an  array  of 
values  in  memory)  md  use  those  previously  computed  values.  The 
example  below  illus.rat.es  how  such  a  mechanism  ca'  be  employed: 

A  program  is  to  oe  developed  that  stores  genealogical  informa¬ 
tion  in  the  form  ot  a  family  tree.  Suet  a  tree  has  an  individual  at 
its  apex,  his  parents  at  the  next  level,  his  parents’  parents  below 
that,  and  so  on.  Figure  2-5  Illustrates  a  family  tree  containing 
four  levels  of  genealogical  information. 


Fig.  2-5  --  Family  tree 
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This  information  can  be  stored  in  a  rectangular  array,  as  depicted 
in  Fig.  2-6.  While  simple  to  do,  it  is  wasteful  of  computer  memory 
because  of  all  the  empty  cells. 
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Fig.  2-6  --  Family  tree  stored  In 
a  rectangular  array 


A  more  memory-conserving  storage  scheme  is  shown  in  Fig.  2-7.  It 
allocates  no  more  computer  words  than  there  are  data  to  store.  Our 
task  is  to  show  how  this  scheme  can  be  programmed  and  used  utilizing 
the  technique  of  array  pointers. 
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Fig.  2-7  --  Family  tree  stored 
in  a  ragged  table 


In  the  following  program,  the  data  of  each  level  Is  stored  in  an 

array  TREE,  At  level  one,  TREE  has  one  element,  at  level  two,  two 

N— 1 

elements,  at  level  three  four  elements,  ....  at  level  N,  2  elements. 
The  array  pointers  for  the  N  arrays  are  stored  in  a  list  called  LEVEL. 
It  has  N  elements,  one  for  each  level  of  the  genealogical  tre*. 


Assume  thst  we  sre  given  the  number  of  levels  in  the  tree  and  the  names 
(co^ed  as  integer  numbers)  of  the  family  members  arranged  in  proper 
order  on  punched  cards.  We  first  construct  a  tree  with  the  family 
data  suitably  arranged.  The  following  program  does  this: 

PREAMBLE  NORMALLY,  MODE  IS  INTEGER 

DEFINE  LEVEL  AND  TREE  AS  1 -DIMENSIONAL  ARRAYS 

END 


READ  N  RESERVE  LEVEL(*)  AS  N 
FOR  1-1  TO  N, 
no 

RESERVE  TREE(*)  AS  2**(I-1)  READ  TREE 
LET  LEVEL(I)*TREE(*)  LET  TREE(*)«0 

LOOP 

END 


For  N*4,  the  memory  structure  at  the  end  of  program  execution  looks 
as  follows: 


LEVEL  TREE 


To  print  out  a  person's  level  ancestors,  one  writes 


READ  K 

LET  TREE(*HEVEL(K) 
LIST  TREE* 


To  pick  out  specific  ancestors,  one  can  search  through  the  tree  until 
the  correct  code  is  found  using  the  following  program: 


+Thia  statement  displays  an  entire  array;  see  Sec.  2-11. 
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READ  CODE 
FOR  1*1  TO  N, 

DO 

LET  TREE ( *) “LEVEL ( I ) 

FOR  J*1  TO  2**(I-1), 

DO 

IF  TREE(U)  EQUALS  CODE,  GO  TO  PRINT 
OTHERWISE 

LOOP 

LOOP 

PRINT  1  LINE  WITH  CODE  AS  FOLLOWS 

UNABLE  TO  FIND  AN  ANCESTOR  WITH  THE  CODE  ** 

STOP 

'PRINT'  PRINT  1  LINE  WITH  CODE,  J  AND  I  AS  FOLLOWS 
ANCESTOR  **  FOUND  IN  POSITION  *  OF  LEVEL  * 

STOP 

END 


(3)  The  pointer  mechanism  can  be  used  to  set  up  an  array  whereby 
some  rows  contain  INTEGER  numbers  and  some  rows  REAL  numbers.  Usually 
this  cannot  be  done,  since  an  array  name  has  a  single  mode  value,  but 
It  can  be  accomplished  If  all  data  Items  are  stored  In  a  single  array 
and  dummy  arrays  used  to  access  the  data  rows  for  processing. 

(a)  Declare  three  arrays  as  follows: 

DEFINE  TABLE  AS  A  2-DIMENSIONAL,  REAL  ARRAY 
DEFINE  WHOLE  AS  AN  INTEGER, 1 -DIMENSIONAL  ARRAY 
DEFINE  DECIMAL  AS  A  REAL.l- DIMENSIONAL  ARRAY 


(b)  Allocate  memory  space  to  the  array  in  which  the  data 
are  to  be  stored. 


RESERVE  TABLE(*,*)  AS  10  BY  10 


(c)  Read  INTEGER  values  into  the  fourth  row  of  the  array 
by  ualng  the  statements 

LET  WH0LE(*)«TABLE(4,*) 

READ  WHOLE 


The  first  statement  sets  the  base  pointer  of  the  one-dimensional  array 
WHOLE  equal  to  the  row  pointer  of  the  fourth  row  of  TABLE.  This  has 
the  effect  of  assigning  the  10  data  element  values  of  the  fourth  row 
of  TABLE  to  WHOLE  —  both  TA8LE(4,#)  and  WH0LE(*)  point  to  the  same 
memory  locations.  The  second  statement  reads  10  data  values  into 
the  array  WHOLE,  which  is  also  a  row  of  TABLE.  They  are  read  as 


integers,  since  WHOLE  has  been  declared  an  INTEGER  array.  The  READ 
statement  knows  ho>.  •-*  :y  elements  to  read,  since  every  pointer  word  - 
in  this  Instance  WH0L£(*)  --  knows  the  number  of  elements  it  points 
to,  as  well  as  pointing  to  the  elements. 

(d)  Read  REAL  values  into  the  seventh  row  of  the  array 
TABLE  by  using  the  statements 

LET  DECIMAL(*)=TABLE(7,*) 

READ  DECIMAL 

or  the  statement 

FOR  1=1  TO  10,  READ  TABLE (7,1) 

Both  statements  can  be  used,  since  TABLE  has  been  defined  as  a  REAL 
array. 

(4)  The  pointer  mechanism  can  be  used  to  make  the  processing  of 
a  three-dimensional  array  more  efficient  by  eliminating  the  necessity 
of  recomputing  two  subscripts  each  time  an  element  is  accessed  in  a 
FOR  loop.  The  program  segment  described  in  (a)  can  be  made  more 
efficient  by  rewriting  it  as  shown  in  (b). 

(a)  FOR  1=1  TO  10,  'READ  CUBE{J+7,K+L,I) 

(b)  LET  DUMMY (*)=CUBE(J+7,K+L ,*) 

FOR  1=1  TO  10,  READ  DUMMY ( I ) 

where  DUMMY  has  been  defined  as  a  one-dimensional 
array  of  the  same  mode  as  CUBE  and  has  not  had 
storage  reserved  for  it. 

The  revised  statement  eliminates  the  need  for  recomputing  the  sub¬ 
scripts  of  CUBE  :?t  are  not  affected  by  the  FOR  loop  every  time  a 
new  element  is  accessed.  Little  additional  memory  space  is  taken, 
for  the  array  DUMMY  never  has  more  words  allocated  than  are  needed 
for  its  base  pointer. 

The  use  of  pointer  words  thus  greatly  enhances  a  programmer's 
ability  to  construct  and  use  data  structures,  and  its  applications 
are  manifold;  for  inetnnce,  rows  of  matrices  can  be  interchanged  by 
simply  changing  pointer  values,  and  large  matrices  with  many  identi¬ 
cal  rows  can  be  compressed  by  having  several  pointers  point  to  the 
same  array. 

The  most  general  form  of  the  RESERVE  statement  illustrating  Che 
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full  power  of  Che  pointer  system  can  now  be  stated  as 

RESERVE  pointer  Hat  AS  array  dee^ription 

where  a  pointer  list  consists  of  a  list  of  subscripted  variables 
having  at  least  one  asterisk  In  their  subscript  list  and  an  array 
description  describes  the  size  and  content  of  the  array  or  arrays 
being  reserved  and  pointed  to.  If  an  array  description  does  not  con¬ 
tain  any  notational  aeterieka,  as  In  the  descriptions  5,  6  BY  N, 

3  BY  M+7  BY  4,  and  N  BY  M  BY  X**2  BY  2,  a  data  array  is  reserved  and 
pointed  to  by  the  pointer  mentioned.  If  an  array  description  contains 
a  notational  asterisk,  the  asterisk  indicates  that  pointer  words  are 
being  reserved  and  that  subsequent  RESERVE  statements  allocate  data 
arrays  to  them.  It  is  only  meaningful  to  have  a  single  notational 
asterisk  in  an  array  description,  as  this  is  sufficient  to  indicate 
that  pointers,  not  data,  are  being  allocated.  As  noted  in  example  (1) 
of  Sec.  2-08,  this  asterisk  must  come  after  any  constants  and  expres¬ 
sions  that  define  the  dimensions  of  prior  subscript  positions.  The 
following  RESERVE  statements  illustrate  these  concepts: 

(1)  RESERVE  ARRAY(V)  AS  5  BY  7 

(Allocates  a  5  by  7  data  array.) 

(2)  RESERVE  ARRAY(V)  AS  6  BY  * 

(Allocates  six  pointer  variables.) 

(3)  RESERVE  ARRAYO,*)  AS  12 

(Allocates  twelve  data  elements  to  a  pointer  variable.) 

(4)  RESERVE  ARRAY(V)  AS  5 

(Allocates  a  five-element  array  to  a  declared  two-diaen- 
sional  variable.  Although  this  statement  will  compile, 
it  should  be  used  carefully  for  it  will  usually  cause  a 
programming  error.  The  array  elements  cannot  be  accessed 
directly,  as  ARRAY  is  a  two-dimensional  variable.  To  be 
accessed,  the  pointer  must  be  transferred  to  a  one-dimen¬ 
sional  array  pointer.) 

(5)  RESERVE  ARRAY ( *)  AS  5  BY  * 

(Similar  to  (4),  but  with  the  dimensionality  problem  re¬ 
versed  if  ARRAY  has  not  been  defined  as  two-dimensional . 1 
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(6)  RESERVE  X(*),Y(*)  AND  Z(*)  AS  N+3 

(Illustrates  that  several  pointers  can  be  assigned  storage 
space  of  the  same  dimension  and  function  (pointers  or 
data).  Each  pointer,  of  course,  is  assigned  a  separate 
block  of  storage.) 

(7)  RESERVE  X(*)  AS  5,  TABLE(J,*)  AS  N+8 

(Illustrates  that  several  array  reservations  can  be  made 
In  the  same  RESERVE  ;«*-atement.  In  this  example,  the  first 
one  allocates  a  five-element  data  array  to  a  base  pointer 
X(*)  and  the  second  allocates  an  N+8  element  data  array 
to  a  row  pointer  TABLE(J,*).) 

Two  features  are  provided  that  make  the  uce  of  pointers  easier. 

The  first  concerns  the  physical  act  of  writing  programs  and  the  second, 
the  task  of  operating  with  arrays  of  unknown  size. 

(1)  A  base  pointer  can  be  written  as  X(*)  regardless  of  the  num¬ 
ber  of  Its  dimensions.  For  Instance,  if  X  is  defined  as  three-dimen¬ 
sional,  X(*)  la  Interpreted  as  X(*,*,*).  While  this  makes  the  use  of 
pointers  convenient,  one  should  be  aware  that,  to  a  person  unfamiliar 
with  the  structure  of  a  program's  data,  it  obscures  the  actual  opera¬ 
tions  that  are  taking  place,  e.g.,  example  (5)  above. 

(2)  The  function  DIM.F,  when  given  a  pointer  as  an  argument, 
returns  as  its  value  the  number  of  words  pointed  to.  This  is  extremely 
useful  in  programs  that  compute  the  values  of  array  dimensions,  as  it 
makes  it  unnecessary  to  save  such  values  for  later  use.  For  example, 
the  following  FOR  loop  uses  the  DIM.F  function  to  determine  its  bounds: 

FOR  1*1  TO  DIM.F(MATRIX(*,*)),  FOP.  J-l  TO  DIM.F(MATRIX(I ,*)) , 

LET  MATRIX ( I ,J)*  1**2  +  J**2 

Using  the  DIM.F  function  rather  than  constants  or  expressions  permits 
the  above  statement  to  process  ragged  tables  as  well  as  rectangular 
arrays. 


2-09  COMPUTED  TRASS  FEES  TO  ALTERNATIVE  STATEMENT  LABELS 

The  GO  TO  and  IF  statements  provide  a  facility  for  specifying  a 


The  concept  .cion  is  presented  in  Secs.  2-1S  to  2-19. 
For  present  purpose.  can  be  tlyught  of.  and  used,  as  a  yne- 
dlmeoaional  INTEGER  variaoia. 
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dlrecc  transfer  of  prograa  control  to  a  particular  statement,  or  to 
select,  according  to  tha  truth  or  falsity  of  a  logical  axnrasalon, 
either  of  two  alternate  prograa  branches. 

These  statements  a:e  frequently  inadequate,  however.  For  axaaple, 
thjre  may  be  aore  than  two  alternative  prograa  paths  to  choose  froa, 
or  a  prograa  may  have  to  be  written  to  accommodate  transfers  to  state¬ 
ments  that  have  not  yet  been  written.  Two  new  GO  TO  statements  cir¬ 
cumvent  these  problems. 

If  we  let  LABEL! ,  LABEL2,  LABEL3,  ...,  LABELN  represent  statement 
labels,  and  e  represent  an  arithmetic  expression,  then  a  statement  of 
the  form 

GO  TO  LABEL1  OR  LABEL 2  OR  ...  OR  LABELN  PER  e 

evaluates  e  (rounding  if  it  la  REAL  valued)  and  transfers  program 
control  to  LABEL1  if  e*l ,  to  LABEL2  if  e*2,  ...»  to  LABELN  if  e*n. 

That  is,  the  statement  transfers  control  to  the  label  in  the  first 
label  position,  or  the  second  label  position,  or  the  n label  posi¬ 
tion,  according  to  the  computed  value  of  the  expression  e.  Most 
illegal  transfers,  e  <  0  or  e  >  n,  are  caught  and  cause  program  term¬ 
ination. 

Each  of  the  names  in  the  label  list  (other  then  the  first)  must 
be  preceded  by  the  word  OR,  or  by  a  coons.  The  word  TO  is  optional. 
Typical  computed  GO  TO  statements  are: 

GO  TO  ACCOUNT .ONE  OR  ACCOUNT . TWO  PER  CUSTOMER 

GO  TO  READ. AGAIN,  WINDUP,  CONTINUE  OR  HALT  PER  INSTRUCTION 

GO  TO  LI,  27,  999,  12,  27,  13,  999  PER  X**2  ♦  COUNT/N 

In  chle  last  example  note  that  the  same  label  name  can  appear  in 
more  than  one  position  in  a  label  list,  and  that  label  names  can  be 
written  without  alphabetic  characters. 

When  two  distinct  label  naates  are  used  to  Identify  the  smse 
prograa  statement,  they  are  called  equivalent  labels.  In  the  follcne- 
ing  examples  the  labels  AOD  and  PLUS  are  used  as  distinct  labele  in 
(1),  and  as  equivalent  labels  in  (2): 


In  this  statement  the  word  AND  cannot  be  us  id  ss  s  synonym  for 


c 
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(1)  'ADO'  ADD  X  TO  COUNTER  'PLUS'  LET  X-X+1 

(2)  'ADD'  'PLUS'  ADD  X  TO  COUNTER 

When  used  with  (1),  the  following  GO  TO  statement  t ran* f era  either 
to  the  ADD  or  the  LET  statement;  when  ueed  with  (2)t  it  transfer*  to 
the  ADD  statement  regardless  of  the  label  selected: 

GO  TO  ADD  OR  PLUS  PER  INDEX 


Equivalent  labels  are  useful  when  certain  portions  of  a  program 
have  been  identified  logically,  but  have  not  yet  been  vritten,  or 
when  a  program  is  written  in  such  a  manner  that  portions  of  it  can 
be  Included  or  removed  without  destroying  the  general  program  logic. 
The  following  program  segment  illustrates  the  use  of  equivalent  labels 
to  indicate  that  subsequent  additions  to  the  program  will  incorporate 
certain  changes  that  are  not  presently  included: 

READ  STOCK. NUMBER,  ITEMS 

GO  TO  MEAT,  POULTRY,  GROCERY,  SUNDRIES,  DAIRY  OR  PRODUCE 
PER  STOCK. NUMBER/ FACTOR 
'MEAT' 

'PC jLTRY' 

'GROCERY' 

'SUNDRIES' 

'DAIRY' 

'PRODUCE' 

SUBTRACT  ITF*S  FROM  QUANTITY (STOCK. NUMBER) 

As  long  as  1  <_  STOCK. NUMBER/FACTOR  <_  6,  the  GO  TO  statement  alwavs 
transfers  control  to  the  SUBTRACT  statement. 

The  following  program  illustrates  another  use  of  a  computed  GO  TO 

statement : 

’ aEAD*  READ  X,  Y,  OPERATION 

GO  TO  ADD,  SUBTRACT ,  MULTIPLY  OR  DIVIDE  PER 
OPERATION 

'ADC'  LET  ANSWER-X*Y  GO  TO  PRINT 
'SUBTRACT'  LET  ANSWER-X-Y  GO  10  PRINT 
'MULTIPLY'  LET  ANSWER-X*Y  GO  TO  PRINT 
'DIVIDE'  LET  ANSWER-X/Y 

'PRINT'  PRINT  }  line  WITH  X,  Y,  A/ID  ANSWER  AS  FOLLOWS 

••••.*•  OP  •***.•*  -  •••*•.**, WHAT  IS  OP? 

GO  TO  READ 


Just  as  variable*  c*n  be  a.iDscrlpted ,  eo  can  labels.  Tor  eaaaple, 
it  wight  :»<?  desirable  to  vise  the  s’ ^tevsent 


I 


-69- 


READ  I  GO  TO  A(I ) 

rather  than  Hat  all  the  poaalble  label  naatee  In  an  ordinary  coaiputed 
GO  TO  statement.  The  aubacrlpted  label  GO  TO  atateiaent  fora  can  be 
ueed  whenever  thia  aeeaa  daalrable.  It  ia  particularly  uaeful  in 
prograa*  containing  GO  TO  atateaenta  that  direct  control  to  varloua 
parte  of  a  prograa  when  the  prograa  la  frequently  updated  or  augmented. 
Subacrlpted  labela  allow  labela  to  be  added  or  deleted  without  changing 
the  GO  TO  etateaenta  that  (aay)  paaa  control  to  them.  The  general 
fora  of  a  aubacrlpted  label  GO  TO  atateaent  la 

GO  TO  label  ( arithmetic  expression) 

Aa  In  other  forma  cf  the  GO  TO  atateaent,  the  word  TO  la  optional. 

When  a  aubacrlpted  GO  TO  atateaent  is  executed,  control  is  transferred 
to  the  atateaent  labeled  with  the  aaae  naae  and  subscript  value  equal 
to  the  INTEGER  value  of  the  expreaalon  in  the  GO  TO  atateaent.  If 
thia  INTEGER  value  hue  not  been  defined  by  a  atateaent  label,  an  un¬ 
defined  transfer  aay  occur.  For  example,  a  prograa  containing  the 
aubacrlpted  labela  A(l),  A(2),  and  A ( 3 ) ,  and  the  atateaent  GO  TO  A ( I ) 
aay  transfer  control  to  some  Indeterminate  place  If  I  la  not  equal  to 
I,  2,  or  3.  Moat  of  tne  dice  Illegal  transfers  vi  1  i  be  detw  ted  and 
program*  terminated. 

k  subacrlpted  label  la  forme!  by  adding  a  single  aubscdpt  to  a 
label  naae.  Thus ,  the  labels  A1  and  A2  might  be  replaced  by  the  labela 
A( 1 )  and  A(2) .  Othar  poaalble  subscripted  labels  are: 

NAHEO)  SECTION.  1(1)  PART(30) 

THIS. I S . LABEL ( 1 )  SECTION. 2(1)  A34B(12) 

While  subscripted  Iqbals  must  be  defined  with  integer  constants 
in  their  subscript  positions,  it  is  unnecessary  for  sul-rcripts  to 
start  with  I,  or  for  them  to  be  consecutive.  LABEL(4}  can  be  defined 
without  having  LABEl(l),  LABEL (?},  or  LABEL (3)  appear  in  the  prograa. 
Control,  however,  can  only  be  transferred  to  subscripted  labels  that 
have  been  defined.  The  previous  example  can  be  written  usfng  sub¬ 
scripted  labels: 
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' READ*  READ  X,  Y  AND  OPERATION 
GO  TO  OPERN(OPERATIQN) 

'OPERN(I)'  LET  ANSWER- X+Y  GO  TO  PRINT 
■0PERN(2) '  LET  ANSWER* X-Y  GO  TO  PRINT 
•OPERN  3  '  LET  ANSWER-X*Y  GO  TO  PRINT 
' 0PERN(4) *  LET  ANSWER-X/Y 

'PRINT'  PRINT  I  LINE  WITH  X,  Y  AND  ANSWER  AS  FOLLOWS 

*******  op  ****.**  *  **•>**  WHAT  IS  0P? 

GO  TO  READ 


2-10  SOME  LE'/EL  1  PROBLEMS  REVISITED 


2-10-1  Problem  1-16-1— Finding  the  Average ,  Maximum, 
and  Minimum  of  a  Set  of  Numbers 

LET  MAX  *  -99999. 999S9  LET  MIN  -  -MAX  READ  N 
FOR  I  -  1  TO  N,  DO  READ  X  ADD  X  TO  SUM 

IF  X  IS  GREATER  THAN  MAX,  LET  MAX  -  X  REGARDLESS 
IF  X  IS  LESS  THAN  MIN,  LET  MIN  -  X  REGARDLESS 
LOOP 

START  NEW  PAGE  PRINT  3  LINES  WITH  N,  SUM/N,  MAX,  MIN  THUS 
THE  AVERAGE  VALUE  OF  ***  NUMBERS  IS  ******** 

THE  MAXIMUM  VALUE  IS  ******.*** 

THE  MINIMUM  VALUE  IS  ******.*** 

STOP  END 


2-10-2  Problem  1-16-2 — A  Prototype  Accounting  System 

PREAMBLE  DEFINE  ACCOUNT  AS  A  I -DIMENSIONAL  ARRAY  END 

RESERVE  ACCOUNT (*)  AS  10  READ  ACCOUNT 

•READ'  READ  DOLLARS,  C0DE1 ,  C0DE2  IF  DOLLARS  EQUALS  0, 

GO  TO  FIN1 

ELSE  ADD  1  TO  TRANSACTION. COUNTER  ADD  DOLLARS  TO  ACCOUNT (CODE! ) 
SUBTRACT  DOLLARS  FROM  ACCOUNT (C0DE2)  ADD  DOLLARS  TO  ACC0'JNT(6) 
SUBTRACT  DOLLARS  FROM  ACCOUNT(IO)  GO  READ 
' FINI '  START  NEW  PAGE  PRINT  1  LINE  WITH  TRANSACT  ION. COUNTER 
AS  FOLLOWS 

*****  TRANSACTIONS  WERE  PROCESSED  THIS  MONTH. 

SKIP  5  OUTPUT  LINES  PRINT  9  LINES  CONTAINING  ACCOUNT(l),  ACC0UNT(7), 
ACC0UNTT2),  ACCOUNT! 8),  ACCOUNT (3) „  ACCOUNT (4), 

ACCOUNT (9) ,  ACCOUNT! 5) ,  ACC0UNT(6),  ACCOUNT(IO)  THUS 


ASSETS 

LIABILITIES 

CLRRENT  ASSETS 

CURRENT  LIABILITIES 

CASH 

ACCOUNTS  PAYABLE 

$****** 

RECEIVABLES 

* 

LOAN 

* 

INVENTORY 

* 

FIXED  ASSETS 

* 

PLANT 

* 

EQUITY 

EQUIPMENT 

* 

EQUITY 

* 

TOTAL  ASSETS  $********* 

TOTAL  LIABILITIES 
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SKIP  2  OUTPUT  LINES  PRINT  2  LINES  WITH  ACCOUNT(l).  ACCOUNT^),  ACCOUNT(3), 
ACCOUNT (4) .  ACCOUNT (5),  ACCOUNT(6),  ACCOUNT(7), 

ACCOUNT (8),  ACCOUNT! 9) ,  AND  ACCOUNT (10)  AS  FOLLOWS 
*****  *****  *****  *****  *****  ***** 

*****  *****  *****  ***** 

STOP  END 


2-10-3  Problem  1-16-5— A  Pr  ogram  for  Regression  Analysis 

"A  PROGRAM  FOR  REGRESSION  ANALYSIS 
READ  N 

FOR  I  =  1  TO  N, 

DO 

READ  X,Y  ADD  X  TO  SUMX  ADD  Y  TO  SUMY  ADD  X**2  TO  SUMXX 
ADD  Y**2  TO  SUMYY  ADD  X*Y  TO  SUMXY 

LOOP 

LET  A1  =  (N*SUMXY  -  SUMX*SUMY)/(N*SUMXX  -  SUMX**2) 

LET  AO  *  (SUMY  -  A1  ♦  SUMX)/N 

PRINT  1  LINE  WITH  \0  AND  A1  AS  FOLLOWS 

THE  REGRESSION  EQUATION  IS  Y  *  *.*♦*  =  *.***  X 
STOP  END 


2-11  A  NEW  OUTPUT  STATEMENT 


Many  programming  applications  do  not  require  the  facilities  of 
the  PRINT  statement.  A  programmer  Is  often  satisfied  with  an  econom¬ 
ical  means  of  displaying  labeled  values  of  selected  variables  with  a 
minimum  of  programming  effort;  as  l<~.<g  as  output  is  displayed  neatly 
and  la  well  labeled,  he  is  willing  to  compromise  specialized  report 
formats  for  programming  ease.  This  is  particularly  the  case  while 
checking  for  errors, +  and  in  programs  that  are  run  for  results  and 
not  for  formal  management  reports. 

The  LIST  statement  prints  labeled  values  of  expressions  and 
singly-  and  doubly-subscrlpted  variables.  The  form  of  the  statement  is 

LIST  list  of  arithmetic  expressions  and  array  ncmes  as  in 
LIST  X,  MAN,  DELTA  +  3.5/C 


Expression  and  array  values  are  printed  in  standard  formats. 
Although  they  can  be  listed  together  in  a  single  LIST  statement,  they 
are  printed  separately;  a  LIST  statement  containing  a  mixture  of 


^Called  ’’debugging"  in  the  programming  vernacular. 
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different  output  types  results  in  a  report  printed  as  if  a  new  LIST 
statement  were  written  each  time  a  type  change  is  made.  If  X,  Y,  and 
Z  represent  expressions  or  unsubscripted  variables,  NAME,  GAME,  and 
PLACE  singly-subscripted  variables,  and  ROUTE,  MATRIX,  and  TABLE 
doubly-subscrlpted  variables,  then  the  statement 

LIST  X,  Y,  NAME,  GAME,  ROUTE,  Z,  TABLE,  MATRIX,  PLACE 
has  the  same  effect  as  the  series  of  statements 

LIST  X,  Y  LIST  NAME,  GAME  LIST  ROUTE  LIST  Z 

LIST  TABLE,  MATRIX  LIST  PLACE 

As  indicated  in  previous  examples,  individual  subscripted  variables 
can  be  displayed,  as  well  as  entire  arrays,  by  using  different  nota¬ 
tions,  e.g.,  X(5)  snd  X.+ 

Expveeaion  values  are  printed  in  rows  across  a  page  with  the 
"name"  of  each  expression  above  its  value.  As  many  values  are  put  in 
each  row  as  fit,  according  to  the  spacing  conventions.  These  conven¬ 
tions  allow  14  print  positions  for  each  value,  with  names  right- 
adjusted  within  the  14  positions.  Values  are  right-adjusted  beneath 
their  names.  REAL  values  have  the  decimal  point  centered  within  t..e 
value  field  with  6  positions  before  and  6  after,  and  with  1  position 
left  for  the  sign.  Two  positions  are  always  left  between  successive 
fields  across  a  page. 

As  an  example  of  the  LIST  statement  format  for  expressions,  let 
the  following  variables  and  their  values  be  printed  by  the  LIST 
statement  that  follows: 

INTEGER  variables 

N-5  MAN-245  MOTORCAR-O  KEY-156733578 

NUMBER. OF. JOBS. IN. QUEUE-45 

REAL  variables 

TIME-345.87  LONGITUDE- 3 7. 37  PRICE-100.00 

TEMP. FAHRENHEIT-267. 66  RATE--545 .6667 

RAT I 0-0.0 


In  this  statement  corrections  are  not  made  for  missing  subscripts 
(see  Sec.  X  is  treated  as  an  array  name  and  not  as  an  improperly 
specified  element  X(1). 
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Program  atatemant 

L I ST  N/MAN, MOTORCAR , T I ME , LONG I TUDE , NUMBE R . 0 F. JOBS . I N . QUEUE , 
TEMP. FAHRENHEIT, PRICE+RATE, KEY, RATIO 


Program  output 


N/MAN 

MOTORCAR 

TIME 

LONGITUDE 

0.024081 

0 

345.870000 

37.370000 

NUMBER. OF. JOBS 

TEMP.FAHRENHEI 

PRICE+RATE 

KEY 

45 

RATIO 

0.000000 

267.660000 

-445.666700 

156733578 

These  values,  of  course,  are  printed  out  differently  on  a  printer  with 
a  wider  width  of  paper. 

Singly-8ubearipted  variables  are  printed  in  columns  following  the 
same  heading  and  spacing  conventions  as  expressions.  The  length  of 
each  column  is  determined  by  the  number  of  elements  in  the  array,  the 
longest  array  determining  the  maximum  number  of  rows  printed.  Vari¬ 
ables  with  fewer  elements  than  the  maximum  show  blanks  in  the  positions 
where  no  elements  appear.  For  example,  if  a  RESERVE  statement  reads 

RESERVE  N  AS  10,  MAN  AS  5,  MOTORCAR  AS  7  AND  TIME  AS  4 
and  a  LIST  statement  is  written 

LIST  N,  MAN,  MOTORCAR  ANO  TIME 

the  following  columns  ire  printed  (note  that  the  left-hand  margin  is 
numbered  to  identify  the  element  values): 


N 

MAN 

MOTORCAR 

TIME 

1 

5 

245 

0 

267.660000 

2 

4 

18 

1 

268.870000 

3 

3 

99 

1 

288.000000 

4 

2 

8894 

0 

302.473215 

5 

1 

4 

1 

6 

0 

0 

7 

/ 

-1 

1 

8 

-2 

9 

-3 

10 

-4 

rut  iy-euttrrip  t*  :  ;U riot  lex,  both  rectangular  and  ragged,  are 
printed  in  rows  and  columns  across  and  dcvn  a  page,  with  the  rows  and 
columns  numbered  the  same  as  the  columns  of  the  sing ly-suhscrlpted 
variables.  The  heading  convention  places  the  array  name  above  the 


i 
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firot  column  of  elemenc  values;  the  spacing  conventions  are  the  same. 
If  more  than  one  array  is  mentioned  in  a  LIST  statement,  they  are 
printed  successively  in  the  order  in  which  they  are  listed.  For 
example,  if  TABLE  is  an  array  defined  by  the  statement 

RESERVE  TABLE  AS  5  BY  4 


it  is  printed  as  follows  if  it  is  INTEGER: 


TABLE 

1 

2 

3 

4 

1 

0 

556 

90 

78 

2 

24 

88 

8 

5555 

3 

5 

0 

777 

89 

4 

337 

7 

0 

98 

5 

0 

55 

54 

0 

or  as 

i  follows  if  it  is 

;  real: 

TABLE 

1 

2 

3 

4 

1 

o.ooocoo 

556.000000 

90.000000 

78.000000 

2 

24.0OOGO0 

88.000000 

8.000000 

5555.000000 

3 

5.000000 

0.000000 

777.000000 

89.000000 

4 

337.000000 

7.000000 

0.000000 

98.000000 

5 

0.000000 

55.000000 

54.000000 

0.000000 

Arrays  with  more 

columns  than  a  page  can  contain 

are  continued 

on  successive  pages. 

For  example,  if  TABLE  had  been  reserved  as 

5  BY 

7,  an  additional 

page  would  be 

printed  as  follows 

: 

TABLE 

5 

6 

7 

1 

12 

28 

1000 

2 

301 

-100 

27 

3 

0 

0 

0 

4 

16 

0 

-16 

5 

-3 

3 

4 

As  the  spacing  conventions  allcw  only  six  figures  before  and 
after  a  decimal  point,  an  output  of  very  large  and  very  snail  numbers 
cannot  be  executed  through  the  standard  LIST  format.  Numbers  greater 
than  999994.999949  or  smaller  than  0.000001  are  printed  in  a  scaled 

a 

scientific  notation  format  instead.  As  an  example,  assume  that  the 


Scientific  notation  prints  a  number  In  the  form  of  a  decimal 
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variable*  X,  MAN,  and  AVERAGE  are  to  be  printed  by  the  atateaent 
LIST  X,  MAN  AND  AVERAGE,  and  that  the  value  of  MAN  la  13,700,000,000. 
The  following  line  will  be  printed: 

X  MAN  AVERAGE 

23.111100  1.370000E+10  9,252525 

The  LIST  atateaent,  unfortunately,  can  be  ule leading  In  one 
reapect  —  that  of  algnlflcant  figured.  Aa  a  digital  computer  la  a 
finite-word- length  calculating  machine.  It  c«n  retain  only  a  limited 
number  of  figure*  In  ita  Internal  <  alculatlona;  generally,  the  pre¬ 
cision  of  computation*  la  limited  to  eight  or  nine  algnlflcant  figures. 
Computation*  are  aubject  to  error,  therefore,  aa  when  two  10-declmal- 
place  fraction*  are  added.  Thua,  there  can  be  aome  danger  In  Inter¬ 
preting  the  twelve  allowable  decimal  figure*  printed  by  the  LIST 
statement  a*  "true  value*."  The  same  rule*  of  careful  error  analysis 
chat  apply  to  other  output  to  determine  the  significance  of  printed 
values  should  apply  to  LIST  output. 

2-12  MORE  ON  LOGICAL  EXPRESSIONS 

Thus  far,  logical  expressions  have  been  used  to  compare  arithmetic 
quantities:  a  logical  expression  is  true  if  the  relationship  it  ex¬ 
presses  is  true,  false  if  the  relationship  does  not  hold.  Often,  how¬ 
ever,  there  is  a  need  for  logical  expressions  employing  nonarithmetic 
comparisons.  This  section  describes  two  applications  of  a  logical 
expression  using  "property"  relationships. 

(1)  As  each  arithmetic  expression  has  a  numerical  value  that  is 
either  positive,  negative,  or  taro,  an  arithmetic  expression  can  be 
compared  with  on*  of  the  property  names  POSITIVE,  NEGATIVE,  or  ZERO, 
and  a  true  or  false  condition  set.  This  condition  can  then  be  used 
to  direct  the  flow  of  program  logic.  The  form  of  the  logical 


number  between  aero  and  ten  scaled  bv  a  power  of  ten;  10.6  is  printed 
as  1 .06( 10**+l ) ,  0.00123  as  1 .23(  10**-3) ,  546372.  3  as  5.463723(  10*^5), 
etc.  The  power  of  ten,  e.g.,  *1,  -3,  *5,  indicates  the  direction  and 
distance  in  which  the  decimal  point  must  be  moved  to  convert  the 
fraction  to  the  true  number. 
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expression  Is 

arithmetic  expression  IS  property  name  or 
arithmetic  expression  IS  NOT  property  name 

The  following  program  statements  are  permissible: 

IF  VALUE(ITEH)  IS  ZERO,  GO  TO  NEW. ITEM  OTHERWISE 
IF  Y**2+X**2  IS  POSITIVE,  GO  TO  ROOT  ELSE 
IF  SUM  IS  NOT  ZERO,  GO  TO  NEW. STEP  OTHERWISE 

The  words  POSITIVE,  NEGATIVE,  and  ZERO  are  recognized  in  their  correct 
context  as  property  names  when  they  follow  the  word  IS  or  words  IS  NOT 
in  a  logical  expression.  Therefore,  they  can  be  used  without  reserva¬ 
tion  as  variable  names  or  labels.  In  fact,  if  POSITIVE  is  declared 
as  a  variable,  the  SIMSCRIPT  II  compiler  has  no  difficulty  with  the 
statement 

IF  POSITIVE  IS  NEGATIVE .  ELSE 

(2)  Properties  of  certain  special  names  can  be  used  in  logical 
tests.  These  names  are  automatically  defined  and  their  values  changed 
during  the  course  of  computation.  Section  2-13  describes  these  words, 
their  property  names,  and  how  they  are  used. 

2-13  SYSTEM-DEFINED  VALUES 

Programmers  often  use  input  data  to  control  the  flow  of  informa¬ 
tion  within  a  program.  Such  statements  as 

READ  N  GO  TO  LABELA  OR  LABELB  OR  LABELC  PER  N  and 
READ  N  IF  N  EQUALS  0 ,  GO  TO  FINISH  OTHERWISE  .... 

are  typical  and  have  been  used  in  several  example  problems. 

SIMSCRIPT  II  offers  a  programmer  several  system-defined  names 
that  allow  him  to  look  at  a  number  of  properties  of  Input  data  before 
they  are  read  from  cards  by  a  free-fora  READ  statement.,  then  a  pro¬ 
grammer  uses  any  of  these  names,  the  SIMSCRIPT  II  system  automatical  lv 
determines  a  property  based  upon  the  current  Input  data  status.  The 
programmer  is  then  free  to  use  this  property  value  as  he  wishes.  The 
system-defined  names  are: 
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Name 

Value 

SFIELD.F 

Starting  column  number  of  the  next  data  field 

EFIELD.F 

Ending  column  number  of  the  next  data  field 

MODE 

Mode  of  the  next  data  field:  either  INTEGER  or  REAL 

CARD 

First  data  field  on  card  Indicator;  either  NEW  card 
or  NOT  NEW 

DATA 

No  data  items  in  data  deck  indicator;  either  ENDED  or 
NOT  ENDED 

Some  examples  illustrate  the  use  of  these  system  variables. 

(1)  The  use  of  SFIELD.F:  A  deck  of  punched  cards  contains  data 
punched  in  two  different  formats.  Some  of  the  cards  have  data  punched 
beginning  in  column  1,  while  other  cards  are  punched  starting  in 
column  25.  A  group  of  statements  labeled  *1'  processes  the  cards  with 
their  data  beginning  in  column  1,  and  a  group  of  statements  labeled 
'25'  processes  the  other  data  cards.  A  value  for  SFIELD.F  is  deter¬ 
mined  before  each  new  value  is  read,  but  the  data  item  Itself  is  not 
read  until  a  READ  statement  i..  executed. 

'LOOK'  IF  SFIELD.F  EQUALS  26,  GO  TO  '25'  ELSE 

T  REAO  X  ADD  X  TO  SUMX  GO  TO  LOOK 

'25'  READ  Y  ADD  Y  TO  SUMY  GO  TO  LOOK 

(2)  The  use  of  EFIELD.F:  N  integers  are  punched  on  data  cards 
when  we  want  to  count  the  number  of  one-digit  numbers,  the  number  of 

two-digit  numbers . or  the  number  of  ten-digit  numbers  in  the 

data  deck. 

PREAM8LE 

OEFINE  COUNT  AS  AN  INTEGER,  1-DIMENSIONAL  ARRAY 

END 

RESERVE  COUNTS)  AS  10 

FOR  I  •  1  TO  N,  00  TME  FOLLOWING 

A 00  1  TO  COUNT (EFIEL0. F-SFIELD.F+1)  SKIP  1  FIELD  "  TO  THE 

"  NEXT  NUMBER 

REPEAT 

A  three-digit  number,  such  as  274,  in  columns  12,  33,  and  34  vill 
have  EFIELD.F  -  34,  SFIELD.F  «  32,  and  will  cause  COUNT ( 34-32*1 )  * 
C0UNT(3)  to  be  incremented. 

(3)  The  use  of  MODE:  To  search  through  a  series  of  numbers  on 
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cards  end  add  together  ell  the  integers  (not  whole  numbers,  hut  num¬ 
bers  without  decimal  points). 


FDR  I  -  1  TO  N,  DO  IF  J40DE  IS  INTEGER,  READ  NUMBER 

ADD  NUMBER  TO  SUM 
GO  TO  LOOP 

OTHERWISE  SKIP  1  FIELD 


•LOOP’  LOOP 

(A)  The  use  of  CARD:  Although  SIMSCRIPT  II  ignores  csrd  columns 
or  csrd  numbers  when  reeding  dsts,  a  programmer  may  want  to  know  if 
he  is  st  the  beginning  of  s  dsts  csrd.  Perhaps  he  wants  to  print  s 
count  of  the  number  of  dsts  cards  read  at  different  stages  of  a  program. 


'LOOP1  IF  CARD  IS  NEW,  ADD  1  TO  COUNT  "ADD  ONLY  ON  A  NEW  CARD 
OTHERWISE 


(S)  The  use  of  DATA:  A  programmer  may  want  to  know  if  he  is 
out  of  data  without  the  necessity  of  adding  a  dusssy  data  card  and 
testing  for  0  or  soaw  other  value.  He  cat.  do  this  by  tasting  to  see 
if  the  next  data  item  to  be  read  exists. 

'READ1  READ  X 

e 

•  |  perform  computations  in  here 

IF  DATA  IS  ENDED,  STOP 
ELSE  GO  READ 


When  there  are  no  data,  e.g.,  all  data  have  been  read  and  look¬ 
ahead  is  impossible,  the  system  variables  have  these  values: 


Name 

Value 

SFIELD.F 

0 

EF I  ELD. F 

0 

MODE 

ALPHA 

CARD 

NEW 

DATA 

ENDED 

.-14  SYSTEM- DEFINED  CONSTANTS 

Scientific  and  engineering  calculations  often  Involve  standard 
scientific  constants;  mathematical  computations  often  require  values 
of  numerical  constants.  Numbers  such  as  *  •  3.14159 . .  and 


e  -  2.718 


are  two  well-known  and  often-used  constants. 
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SIMSCRIPT  II  maintain*  a  library  of  acandard  valuaa.  Whan  Cha 
naaa  of  a  library  constant  la  used  In  a  SIKSCRIPT  II  prograa,  tha 
correct  numerical  value  of  the  constant  la  inserted  In  its  place. 

Theae  constants  aay  be  used  wherever  a  "regular"  numerical  constant 
can  be  used. 

Library  constants  have  names  that  look  like  variable  tunes  except 
that  they  end  in  ,C.  This  is  another  reason  why  variable  names  should 
not  end  with  a  letter  preceded  by  a  decimal  point. 

The  library  constants  and  their  values  are  listed  in  Table  2-3. 


Table  2-3 

SYSTEH-DEFINED  CONSTANTS 


Name 

Standard 

Symbol 

Value 

Units 

Mode 

Pl.C 

rr 

3.14159265 

REAL 

EXP.C 

e 

2.713281828 

REAL 

INF.C 

- 

(  largos t  value 

— 

INTEGER 

RINF.C 

<0 

\  computer  can  store 

— 

REAL 

RADIAN. C 

57.29577 

degrees /radian 

REAL 

2- lb  THE  STRUCTURE  0e  A  SIMSCRIPT  II  PROGRAM 

Problem  solutions  often  require  sequences  of  similar  or  identical 
statements  to  appear  at  different  places  in  a  prograa.  Although  tbea? 
statements  can  be  rewritten  each  time  they  are  needed,  it  le  far  more 
convenient  to  combine  them  into  groups  and  call  on  them  by  symbolic 

names. 

Labeled  groups  of  statesa'nts  that  can  be  called  on  by  name  are 
called  tubprofrcrm .  They  are  distinguished  as  programs  because  they 
do  some  specif  1;  task;  they  are  called  subprograms  because  they  do 
not  have  an  Independent  existence,  but  are  controlled  bv  other  pro¬ 
gram*.  A  subprogram  is  oal rather  than  executed  in  sequence  as 
are  the  statements  REA 0,  LET,  and  RESERVE.  When  s  subprogram  Is 
called,  control  pseses  from  s  program  to  the  subprogram,  along 

with  instructions  for  returning  control  to  the  calling  progra*.  A 


-  •  % 
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subprogram  can  call  upon  ocher  aubprograma;  It  can  be  both  a  called 
and  a  calling  program  coincidentally. 

Since  aubprograas  cannot  be  executed  directly  but  muat  b-2  called, 
at  leaat  one  nonaubprogram  la  required  in  every  program  deck.  Every 
SIKSCRIPT  II  program  must,  contain  auch  a  program,  called  a  main  program, 
and  may  contain  one  or  more  aubprograma.  When  a  program  deck  la  com¬ 
piled  and  loaded  into  memory  for  execution,  the  execution  beglna  at 
the  flrut  lnat ruction  In  the  main  program  and  proceeda  from  there,  aa 
the  logic  of  the  main  program-subprogram  package  commands.  All  of 
the  example  programs  uaed  thus  far  have  been  main  programs.  In  suc¬ 
ceeding  aectlona  we  will  deacrlbe  the  structure  and  use  of  aubprograma, 
and  transcribe  some  of  the  main  program  examples  into  a  subprogram 
framework. 

Figure  2-8  shows  three  examples  of  main  program-subprogram  organ¬ 
izations.  The  examples  In  Fig.  2-8  consist  of  a  main  program  and  one 
or  more  subprograms,  with  arrows  Indicating  the  direction  of  program 
flow.  An  arrow  pointing  to  a  subprogram  Indicates  a  call  on  that 
subprogram,  and  an  arrow  pointing  oppositely  means  a  return  to  a  call¬ 
ing  program. 

MAIN  PROGRAM 

o 

o  — 
o  -*■ 
o 
o 

o  — 
o  -*■ 
o 

rst’ 

Fig.  ?-8a  --  Program  consisting  of  a  subprogram 
called  by  a  main  program 

In  Fig.  2-8 a  the  main  p: o^ram  calls  on  rhe  subprogram  In  two 
places.  In  each  Instance,  after  executing  lta  statements,  the  sub¬ 
program  returns  control  to  the  main  program  at  the  statement  follow¬ 
ing  the  one  that  called  it. 


St  JB  PROGRAM 


SUBPROGRAM 


r 
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main  PROGRAM 

o 

o  — 

o 
o 

o  — 
o 
o 
o 

o - 

o 
o 

END 

Fig.  2-8b  --  Program  consisting  of  two  subprograms 

called  by  a  main  program 


SUBPROGRAM! 


SUBPROGRAM2 


SUBPROGRAM! 


MAIN  PROGRAM 

o 

o  - 

o 

o 

o 

o - 

o 

o 

END 


- 1 

SUBPROGRAMj 


I - 

SUBPROGRAM- 


SUBPROGRAMj 


SUBPROGRAM3 


Fig.  2-8c  --  Program  consisting  of  three  subprograms 

and  a  main  program 


Figure  2-8b  shows  a  slightly  more  complicated  program  composed 
of  a  main  program  and  two  subprograms.  The  main  program  calls  on 
each  of  the  subprograms;  they  are  independent  of  each  other. 

Figure  2-8c  illustrates  a  more  complex  situation  in  which  a 
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main  program  and  three  subprograms  interact.  Subprograms  1  and  2  are 
both  called  av<d  calling  programs  —  they  are  called  by  the  main  pro¬ 
gram  and,  in  turn,  they  call  on  Subprogram  3.  The  call  of  Subprogram 
1  or  2  by  the  main  program  is  the  first  level  of  calling;  the  call  of 
Subprogram  3  by  Subprograms  1  and  2  while  under  the  control  of  the 
main  program  is  a  second  level.  In  general,  there  can  be  any  level 
of  calling  in  effect  within  a  program  at  any  time.  The  calling  rules 
do  not  change  from  level  to  level  —  control  always  passes  from  a 
calling  to  a  called  program  and  back  again.  Whether  there  are  many 
intermediate  calls  and  returns  between  an  original  call  on  a  subprogram 
and  a  return  to  its  calling  program  is  insignificant.  If  A  calls  B 
and  B  calls  C,  then  C  mrst  return  control  to  B  before  B  can  return 
to  A.  A  subprogram  cannot  return  control  to  any  routine  other  than 
the  one  that  called  it,  e.g. ,  C  cannot  return  directly  to  A. 

Subprograms  are  like  obedient  servants.  They  can  be  called  upon 
to  do  a  job,  and  they  always  report  back  when  they  are  finished.  The 
fact  that  the  servants  may  in  turn  have  servants  in  no  way  complicates 
the  rules. 

2-16  SUBPROGRAM  DEFINITION 

As  a  SIdSCRIPT  II  program  can  be  composed  of  a  main  program  and 
a  number  of  more  or  less  independent  subprograms,  statements  are  needed 
to  inform  the  compiler  of  the  overall  program  structure  and  enclose 
the  statements  belonging  to  individual  subprograms. 

The  main  program  in  a  program  deck  should  be  preceded  by  the 
statement 

MAIN 

although  this  is  not  always  necessary.  Since  all  other  sections  of 
a  program  deck  must  have  a  heading.  It  is  possible  to  make  MAIN 
optional  and  assume  a  program  is  a  main  program  if  it  is  not  other¬ 
wise  labeled.  Nevertheless,  it  io  good  programming  practice  to  label 
programs  fully.  From  now  on,  we  shall  do  so. 

A  subprogram  definition  statement  precedes  each  subprogram  and 
(1)  declares  that  the  statements  following  are  part  of  a  subprogram; 
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(2)  bestows  a  name  to  the  subprogram;  and  (3)  sets  up  a  communication 
mechanism  for  transmitting  data  between  the  subprogram  and  programs 
calling  it. 

Each  subprogram  has  a  name  that  is  used  to  call  it.  This  name 
is  declared  in  the  subprogram  definition  statement  that  precedes  the 
statements  composing  the  body  of  the  subprogram.  Subprograms  follow 
the  same  naming  conventions  as  variables  (see  Sec.  2-00).  Each  vari¬ 
able  and  subprogram  name  must  be  unique. 

A  subprogram  definition  statement  has  the  form 

ROUTINE  r^rte 

The  optional  words  TO  and  FOR  are  allowed  after  the  word  ROUTINE  to 
make  statements  more  grammatical.  Thus,  a  program  that  extracts 
square  roots  might  be  called  SQUARE. ROOT  and  could  be  defined  by  the 
statement 

ROUTINE  SQUARE. ROOT 

or  it  might  be  called  TAKE. SQUARE. ROOT,  and  oe  defined  by  the  statement 
ROUTINE  TO  TAKE. SQUARE. ROOT 

or  the  original  name  might  be  preferred  and  be  used  in  the  statement 

ROUTINE  FOR  SQUARE. ROOT 

As  the  words  TO  and  FOR  are  optional,  care  must  be  exercised  to  avoid 
using  the  short  form  of  the  statement  when  defining  a  subprogram 
named  FOR  or  TO.  If  this  is  done,  the  compiler  will  continue  to  look 
for  a  subprogram  name  after  it  sees  the  words  TO  or  FOR,  and  mistakenly 
use  the  next  word  it  sees.  For  example,  if  a  subprogram  named  FOR 
is  defined  by  the  statements 

ROUTINE  FOR 
LET  X  «  1 
END 

the  compiler  assumes  that  the  subprogram  definition  statement  is 
ROUTINE  FOR  LET,  misnames  the  routine,  and  leaves  an  incomplete  state¬ 
ment  X=1  to  deal  with  next.  The  proper  use  of  a  subprogram  definition 
statement  with  subprograms  named  FOR  or  TO  should  include  the  follow¬ 
ing  optional,  although  ungrammatical,  words: 


-84 


ROUTINE  FOR  FOR  ROUTINE  TO  FOR 

ROUTINE  FOR  TO  ROUTINE  TO  TO 

Each  subprogram  Is  bracketed  by  a  ROUTINE  statement  and  an  END 
statement.  The  statements  between  them  constitute  the  body  of  the 
subprogram  and  are  executed  when  the  subprogram  is  called.  The  word 
routine  will  be  U3ed  from  here  on  to  refer  to  subprograms. 

Routines  are  generally  used  to  process  data.  In  a  square  root 
routine,  a  number  Is  an  input  to  the  routine,  and  the  value  of  the 
square  root  of  the  number  Is  an  output  of  the  routine.  Data  are 
passed  from  calling  to  called  programs  and  back  again  In  two  ways: 
implicitly,  as  values  of  global  variables,  and  explicitly,  through 
arguments  in  an  argument  list 

A  global  variable  Is  a  variable  whose  name  has  a  common  meaning 
throughout  a  program;  every  use  of  the  name  of  a  global  variable 
references  the  same  memory  location  (and  hence,  the  same  data  value) 
regardless  of  the  routine  in  which  it  appears.  A  variable  is  only 
defined  as  global  when  it  appears  in  a  DEFINE  statement  in  the 
preamble.  Therefore,  certain  variable  names  must  be  put  in  DEFINE 
statements  in  order  to  declare  them  as  global  even  though  their  pro¬ 
perties  are  fully  described  by  preceding  NORMALLY  statements.  In 
such  cases  the  DEFINE  statement  can  be  used  without  any  properties, 
as  in 

DEFINE  MAN,  X,  TIGER  AND  VECTOR. SUM  AS  VARIABLES 

A  local  variable,  on  the  other  hand,  has  its  value  defined  only 
within  a  particular  routine.  The  same  name  can  be  used  for  a  local 
variable  in  many  routines;  when  it  is  so  used  it  refers  to  a  different 
quantity  in  each  routine,  as  if  a  different  variable  name  were  being 
used  in  each  place.  Local  vs  'ables  can  be  used  mnemonicaliy  in  dif¬ 
ferent  routines  without  the  various  applications  interfering  with  one 
another.  When  a  name  is  defined  within  a  routine,  it  is  unique  to 
that  routine  and  does  not  conflict  with  other  uses  of  the  same  name. 
Thus,  it  Is  possible  to  have  many  different  elements  with  the  same 
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See  p. 
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name  —  variables  and  labels  —  In  a  program.  Furthermore,  local 
variables  are  not  always  present  In  memory,  as  are  global  variable* » 
but  pass  In  and  out  of  existence  as  the  routines  in  which  they  appear 
are  called.  This  dynamic  quality  conserves  memory  space,  and  it  Is 
Important  In  programs  having  a  large  number  of  local  variables  and 
routine  calls. 

The  preamble  is  used  to  define  global  variables.  Any  variable 
not  named  In  a  program's  preamble  is  local  to  whatever  subprograms 
It  is  used  In.  Names  declared  as  global  can  be  temporarily  defined 
as  local  within  particular  subprograms  by  using  their  names  In  DEFINE 
statements  within  the  routines.  Local  variables  have  the  properties 
of  the  background  (NORMALLY)  conditions  in  effect  at  the  time  they 
are  first  encountered,  unless  they  are  otherwise  defined  through 
DEFINE  statements. 

The  following  program  implicitly  specifies  that  X  and  Y,  which 
are  not  mentioned  in  the  preamble  but  which  do  appear  in  che  routines 
RTN1  and  RTN2,  are  INTEGER  ,  unsubscripted  local  variables.  The 
names  X  and  Y  refer  to  different  quantities  in  RTN1  and  RTN2. 

PREAMBLE  \ 

NORMALLY,  MODE  IS  INTEGER,  DIMENSIONS 

DEFINE  GHOST  AND  SPECTER  AS  REAL  ARRAYS  )  Program  Preamble 

DEFINE  VALUE  AS  A  REAL,  1-DIMENSIONAL  ARRAY  \ 

NORMALLY,  DIMENSION*  0  ' 

END 

MAIN 

(This  section  is  the  main  routine.  It  can  contain 
(references  to  both  global  and  local  variables. 

END 

ROUTINE  RTN1 

I  This  section  contains  statements  that  use  the 
(variables  X  and  Y. 

END 

ROUTINE  RTN2 

(This  section  contains  statements  that  use  the 
(variables  X  and  Y. 

END 

All  variables  that  do  not  appear  in  a  program  preamble  are  local. 
Local  variables  can  be  used  both  in  routines  and  in  main  programs. 
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Local  variables  that  have  different  properties  from  those  of  the 
current  NORMALLY  conditions  are  declared  by  DEFINE  statements  in  their 
respective  routines.  NORMALLY  statements  can  be  used  in  routines  to 
set  background  conditions  for  local  variables,  but  these  conditions 
do  not  carry  over  from  one  routine  to  another.  Only  the  last  defined 
NORMALLY  conditions  in  the  presable  carry  over  from  routine  to  routine. 
A  main  program  can  have  local  variables  declared  in  DEFINE  statements 
that  follow  the  statement  MAIN.  The  example  below  illustrates  how 
NORMALLY  and  DEFINE  statements  are  used  to  specify  properties  of 
local  and  global  variables. 


PREAMBLE 

NORMALLY,  MODE  IS  INTEGER 

DEFINE  VI  AND  V2  AS  REAL,  1-DIMENSIONAL  ARRAYS 

DEFINE  V3,  V4  AND  V5  AS  2-DIMENSIONAL  ARRAYS 

NORMALLY,  MODE-  REAL 

END 


MAIN  READ  N  RESERVE  V1.V2  AS  N,  V3,V4,V5  AS  N  BY  N 
READ  VI  AND  V2  LET  V3(1 ,1 )«V1 (V2(l )) 

and  other  statements  that  make  up  a  main  program, 
including  call  statements  for  the  following  routines 


Program 

Preamble 


END  "OF  MAIN  ROUTINE" 


ROUTINE  TO  PROCESS. DATA 

NORMALLY,  DIMENSION*  1,  MODE  IS  REAL 

DEFINE  Z  AS  AN  INTEGER  ARRAY 

DEFINE  L,  M  AND  N  AS  INTEGER  VARIABLES 

RESERVE  Z  AS  10 

'START' 


GO  TO  START 

and  other  statements  that  make  up  a  routine 


END  "OF  ROUTINE  PROCESS. DATA 
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ROUTINE  FOR  PRINTING 

DEFINE  Z  AS  A  2-DIMENSIONAL  VARIABLE 

RESERVE  Z  AS  10  BY  5 

'START' 

END  "OF  ROUTINE  PRINTING 

Some  points  to  observe  from  this  example  are: 

(1)  A  preamble  can  have  more  than  one  NORMALLY  statement.  Each 
successive  NORMALLY  statement  sets  background  conditions  that  hold 
until  they  are  overridden.  The  last  NORMALLY  conditions  hold  for  all 
undefined  local  variables  in  routines.  Local  variables  in  routines 
can  have  their  properties  defined  by  NORMALLY  and  DEFINE  statements 
in  the  routines. 

(2)  The  order  of  NORMALLY  and  DEFINE  statements  is  always  impor¬ 
tant.  In  the  above  routine  PROCESS. DATA  the  variable  Z  is  defined  as 
an  INTEGER,  1 -DIMENSIONAL  array  by  the  NORMALLY  and  DEFINE  statements. 

If  these  statements  are  reversed,  the  NORMALLY  conditions  of  the  pro¬ 
gram  preamble  will  apply  to  Z  and  it  will  be  defined  as  an  unsubscrlpted 
variable,  a  definition  that  subsequently  will  be  contradicted  by  the 
RESERVE  statement,  although  this  need  not  always  be  true.  The  order 

of  definition  statements  is  always  important. 

(3)  Unsubscripted  local  variables  (L,  M,  and  N  in  PROCESS. DATA) 
are  automatically  assigned  storage  locations  and  initialized  to  zero 
when  a  routine  is  called.  They  are  returned  to  "free  storage"  when 
control  passes  back  from  a  routine  to  a  calling  program.  Subscripted 
local  variables  are  not  automatically  assigned  storage  locations,  and 
must  be  RESERVED  before  they  can  be  used.  When  an  array  is  RESERVED, 
its  elements  are  automatically  initialized  to  zero. 

(A)  Local  variables  can  have  conflicting  definitions  in  different 
routines  without  any  difficulty,  as  Z  is  a  1-DIMENSIONAL, INTEGER  local 
array  :n  routine  PROCESS. DATA  and  a  2-DIMENSIONAL .REAL  array  in  routine 
PRINTING.  If  Z  were  used  in  the  main  program,  it  would  be  local  to 
it,  defined  as  unsubscrlpted,  and  REAL. 

(5)  Labels  are  always  local.  When  a  name  is  used  as  a  label  it 
references  a  program  statement  in  the  routine  containing  the  label. 
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Label  names  can  be  duplicated  In  different  routines  without  conflict. 
Labels  appearing  in  one  routine  are  not  defined  within  other  routines* 
and  transfers  cannot  be  made  between  routines  by  means  of  GO  TO 
statements . 

(6)  A  subscripted  local  variable  that  does  not  appear  in  a 
DEFINE  statement  within  a  routine  has  its  dimensionality  defined  by 
its  first  use,  i.e.,  even  if  a  routine's  NORMALLY  condition  is  0- 
dimensional,  the  statement  LET  X ( I ) *0  defines  X  as  1-d imens ional. 

(7)  The  concept  of  a  routine  preamble  is  a  convenient  fiction. 
Definitional  statements  placed  at  the  head  of  a  routine  ate  not  pre¬ 
ceded  by  PREAMBLE  and  followed  by  END,  as  are  similar  statements  in 
a  program  preamble.  NORMALLY  and  DEFINE  statements  can  be  used  any¬ 
where  within  a  routine. 

2-17  ROUTINES  USED  AS  FUNCTIONS 

A  function  is  a  routine  that  yields  a  single  value  when  applied 
to  a  set  of  data.  The  value  given  is  known  as  the  result  of  the 
function.  The  familiar  symbols  sin  (y)  and  /ITrepresent  the  mathe¬ 
matical  functions  sine  and  square  root,  i.e.,  they  represent  procedures 
for  computing  the  value  of  the  sine  of  y  and  the  square  root  of  x. 

When  a  function  is  used  in  an  "xpression,  there  is  no  intent  to 
substitute  the  literal  symbol  of  the  function  in  the  expression  but 
only  the  number  that  results  from  applying  the  function  to  its 
arguments  (input  values).  The  function  symbol  represents  a  procedure 
for  converting  the  value  of  an  argument  or  arguments  to  a  nev  value, 
called  the  value  of  the  function.  We  pretend  that  this  value  is 
asaigned  to  the  function  symbol  and  use  it  in  subsequent  Calculations. 
Thus  y  »x  means  "compute  the  value  of  the  square  root  of  *  and 
assign  it  to  the  variable  y." 

Functions  are  so  basic  to  computing  that  they  must  b*  incorpo¬ 
rated  into  the  rules  for  evaluating  arithmetic  expressions; 

o  Arithmetic  expressions  are  composed  of  variables,  con¬ 
stants,  functions,  arithmetic  operators,  and  parentheses. 

o  Expressions  are  evaluated  according  to  the  parentheses 
and  operator  hierarchy  precedence  rules;  functions  are 
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evaluated  by  application  of  the  parentheaea  rule  (aee 
Sec.  1-03,  p.  2,  and  Sec.  2-04 ,  p.  40). 

The  following  two  exaoplea  illuatrate  the  rules  for  evaluating 

expressions  that  contain  functions: 

Expression:  X*Y+SQRT. F(P+Q**2/M) ;  SQRT.F  is  a  function  that 

takes  the  square  root  of  a  single  argument  enclosed 
In  parentheses. 

Evaluation:  (1)  Application  of  the  parentheses  rule  evaluates, 

from  left  to  right,  all  terms  containing  parentheaea. 

A  value  is  first  computed  for  the  expression  P+Q**2/M. 
In  this  Intermediate  computation,  Q**2  is  evaluated, 
the  result  divided  by  M,  and  this  result  added  to  P. 
This  value  is  then  used  as  the  argument  of  the  square 
root  function,  which  is  called,  and  produces  the 
result  s. 

(2)  The  expression  X*Y+s  is  evaluated  by  applying 
the  operator  precedence  rules;  X  and  Y  are  multiplied, 
and  S  is  added  to  their  product. 


Expression:  SQRT.F( (X(I+1 )**2+Y(J)**2)+(5.5*Z(2*I+J)-l ) ) . 
Evaluation:  (1)  Application  of  the  parentheses  and  ooerator  pre- 


cedence  rules 

evaluate,  in  turn, 

the  sub-expressiona: 

(a)  1+1  -  a 

(b)  J  -*•  d 

(c)  b**2  -  c 

X(a)  *  b 

Y (d)  -  e 

e**2  *  f 

c+f  -  g 

(d)  2*1  -  h 

(e)  g+w  -  n 

(f)  SQRT.F(n)  -*  p 

h+J  -*■  i 

Z(i)  *  j 
5. 5*J  -  k 
k-1  ■*  a 


An  Important  rule  to  remember  is  that  expressions  are  evaluated 
term  by  term,  with  the  parentheses  rule  being  Invoked  within  terms 
whenever  parentheses  are  used.  In  the  event  of  consecutive  paren¬ 
theses,  the  most  deeply  Imbedded  parentheses  are  evaluated  first. 
Whenever  an  expression  enclosed  within  parentheses  consists  of  sore 
than  one  term,  the  operator  precedence  rules  are  applied  to  determine 
the  order  of  evaluation.  Functions  with  argument  lists  and  subscripted 
variables  ar«  always  evaluated  under  the  parentheses  rule.  The  follow¬ 
ing  example  illustrates  the  invocation  of  the  parentheses  rule  to 
evaluate  a  complicated  expression  containing  a  function  call  and  con¬ 
secutive  parentheses: 
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Expreaeicm:  5.0  ♦  (SQRI.F(I)  ♦  ((A+B)/C)  ♦  D) 

Evaluation:  (1)  SQRT .  F { I )  -*■  a 

(2)  A+B  -♦  b 
b  /C  ■*  c 

'3)  a+t+D  -  • 

(4)  result*  5.0+e 

Arguments  ere  vslues  that  are  transmitted  from  a  calling  to  a 
called  program.  They  represent  variables  that  ere  local  to  a  routine 
and  that  receive  initial  values  when  a  routine  la  called.  When  e 
routine  la  written  (described  in  Sec.  2-19),  local  variables  that  are 
arguments  of  the  routine  are  formal  place-holders;  they  serve  as 
receptacles  into  which  values  are  dropped  when  a  routine  la  called. 
When  a  routine  is  called  (also  described  in  Sec.  2-19),  actual  values 
are  put  in  the  positions  in  which  the  formal  arguments  appear  in  the 
routine  definition  and  these  values  are  transmitted  to  the  routine 
end  used  to  initialize  the  routine  arguments. 


2-18  LIBRARY  FUNCTIONS 

Some  function*,  ere  used  so  frequently  that  they  are  Incorporated 
in  the  SIMSCRIPT  II  syatem.  These  functions  are  described  in  Table  2.4. 

Each  library  function,  with  the  exception  of  MAX.F  and  MIN.F, 
has  a  fixed  number  of  arguments.  The  library  functions  can  be  used 
freely  in  all  computations,  although  values,  of  course,  cannot  be 
aaalgncd  to  them.  Function  arguments  can  be  arithmetic  expressions 
of  any  complexity  (including  function  names)  as  long  as  they  are  of 
the  correct  mode  and  their  values  do  not  exceed  any  restrictions  they 
may  have  (aee  Table  2-4).  Some  examples  of  the  use  of  library  func¬ 
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Table  2-4 

SIMSCRIPT  II  LIBRARY  FUNCTIONS 
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Statement 

Action 

Ca)  LET  Z=SQRT. F(X**2+Y**2) 

Jy?  *  v2 

(b)  ADD  SQRT.F(SQRT.F(N))  TO  SUM 

SUM  + 

(c)  LET  MAX=ABS.F(X(1)) 

FOR  1=  2  TO  N, 

LET  MAX=MAX. F(A8S. F(X(I ) ) ,MAX) 

finds  MAXlxJ 

(d)  LET  VAR=MEAN*LOG. E . F ( RANDOM) 

mean  [In (random)] 

(e)  LET  DECIMAL=MOD. F(X,1 ) 

fractional  part  of  X 

(f)  FOR  1=1  TO  ABS, F(N-K) ,  LET  X(I)=1 

initializes  array  X 

(g)  FOR  J=1  TO  DIM. F(TABLE ( * ) ) ,LET  TABLE(J)=0 

zeroes  array  TABLE 

2-19  PROGRAM-DEFINED  FUNCTIONS 

Routines  that  perforin  as  functions  can  be  defined.  Computations 
are  programmed  in  the  routine,  and  the  routine  name  is  used  to  repre¬ 
sent  the  function.  Library  and  program  defined  functions  are  used  in 
exactly  the  same  way. 

Routines  used  as  functions  can  be  defined  with  or  without  argu¬ 
ments.  Alternate  forms  of  the  ROUTINE  statement  are.  indicated  below. 

(a)  ROUTINE  name 

(b)  ROUTINE  name  ( argument  list) 

(c)  ROUTINE  name  GIVEN  argument  list 

Routines  can  be  defined  without  arguments,  as  in  (a),  when  all 
input  values  are  transmitted  to  the  routine  through  global  variables. 
When  arguments  are  used,  they  are  names  of  local  variables  in  the 
body  of  a  routine.  When  a  function  is  called,  the  values  of  expres¬ 
sions  used  in  the  argument  list  are  transferred  to  the  routine.  In 
the  routine  SQRT,  for  example,  defined  by  the  statement  ROUTINE  FOR 
SQRT(N),  N  is  a  local  variable  appearing  in  the  computational  procedure 
for  computing  a  square  root.  When  the  function  SQRT  is  used  in  a 
program,  it  can  be  written  as  SQRT(4),  or  SQRT(VALUE*SUM-I )  or 
SQRT ( SQRT ( Z**3 ) ) ,  with  an  arithmetic  expression  replacing  the  iden¬ 
tifier  of  the  argument  list. 

As  illustrated  in  Sec.  2-16 ,  the  optional  words  TO  and  FOR  can 
be  used  between  the  word  ROUTINE  and  a  subprogram  name.  In  the  long 
form  of  the  ROUTINE  statement  with  arguments,  the  word  GIVEN  can  be 
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replaced  by  the  words  GIVING,  THE,  or  THIS  to  make  declara* ions  more 
readable.  These  options  make  a  large  number  of  ROUTINE  statement 
forms  possible.  For  example: 

ROUTINE  ALLOCATE 
ROUTINE  TO  ADD(X  AND  Y) 

ROUTINE  FOR  ADDING  GIVEN  X  AND  Y 
ROUTINE  L0G(X,Y) 

ROUTINE  FOR  ALLOCATING  THIS  MAN 

When  a  routine  with  arguments  is  called  as  a  function,  however,  it 
can  only  be  called  as 

riCUTlQ  (  COyL  ts  is <3  £C£p  TkI  o'u8  V  ) 

Only  a  ,  not  an  AND  or  ,AND  can  be  used  to  separate  expressions  in 
a  function  call. 

A  routine  used  as  a  function  returns  a  value  to  the  calling  pro¬ 
gram  when  it  executes  a  RETURN  statement.  This  statement  is  written  as 

RETURN  WITH  arithmetric  expression  or 
RETURN  ( arithmetic  expression ) 

The  value  of  the  expression  is  computed  before  the  routine  returns  to 
the  calling  program.  The  computed  value  is  returned  in  the  mode  of 
the  function,  specified  in  the  program  preamble  in  a  function  mode 
definition  statement. 

The  DEFINE  statement  used  to  declare  the  mode  of  a  function  in  a 
program  preamble  is  of  the  form: 

DEFINE  name  AS  mode  FUNCTION 

where  the  words  AN  INTEGER  or  A  REAL  are  optional  and  can  be  substi- 

M 

tuted  for  the  mode  when  appropriate.  More  than  one  function  can  be 
declared  in  a  single  DEFINE  statement,  as,  for  example,  in  the  statement 

DEFINE  ROOT,  ALLOCATE  AND  COMPLEX. ADD  AS  REAL  FUNCTIONS 

Each  function  must  be  defined  in  the  program  preamble  in  order  to 
distinguish  it  from  a  variable  in  subsequent  subprograms. 

There  can  be  more  than  one  RETURN  statement  in  a  routine,  for  a 
routine  ay  be  used  for  multiple  purposes  and  have  multiple  exit 
points,  each  of  which  returns  a  different  value.  All  function  values 
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are  returned  in  the  sane  mode,  of  course.  The  program  shown  below 
Illustrates  the  use  of  arguments  and  the  ROUTINE  and  RETURN  state¬ 
ments.  The  routine  computes  the  2n-th  root  of  an  iuput  value,  where 
n  can  take  on  the  values  1,  2,  or  3. 

In  the  program  preamble: 

DEFINE  ROOT  AS  A  REAL  FUNCTION 

Routine  definition: 

ROUTINE  FOR  ROOT  (N,X) 

IF  N  «  1,  RETURN  WITH  SQRT.F(X)  ELSE 

IF  N  -  2,  RETURN  WITH  SQRT.F(SQRT.F(X))  ELSE 

IF  N  -  3,  RETURN  WITH  SQRT . F( SQRT . F( SQRT . F( X ) ) )  ELSE 

RETURN  WITH  -1  "WHICH  IS  AN  ERROR  MESSAGE  CODE 

END  "ROOT  ROUTINE" 

Routine  used  in  other  programs: 

LET  Y  -R00T(2,  LI  ST (ROW, COLUMN)) 

ADD  ROOT ( M , X**2+V*WE I GHT /MASS )  TO  VAR 
LET  I*MAX.F(0,R00T(K,Q)) 

In  the  last  example,  I  is  set  equal  to  0  if  K  is  not  1,  2,  or  3; 
otherwise,  it  is  set  equal  to  the  appropriate  root  of  Q. 

Notice  that  the  arguments  of  ROOT  are  used  in  its  body  as  decision 
or  computing  variables.  When  the  routine  ROOT  is  called,  the  expres¬ 
sions  that  appear  in  the  positions  of  N  and  X  are  evaluated  and  set 
aa  the  initial  values  of  N  and  X  in  this  call.  Thus,  unlike  other 
variables  that  are  initialized  to  zero  when  a  routine  is  called, 
routine  arguments  are  initialized  to  values  specified  in  the  state¬ 
ments  that  call  them. 

Routine  arguments,  unless  defined,  have  their  mode  implied  by 
the  background  conditions  in  effect  when  the  routine  is  compiled. 

In  a  large  program  with  several  routines,  it  is  likely  that  many 
routine  arguments  will  have  different  mode  specifications.  Most  of 
these  will  be  made  through  DEFINE  statements,  as  they  will  not  agree 
with  the  NORMALLY  conditions.  The  properties  of  the  remainder  will 
be  specified  by  implication.  The  routines  that  contain  DEFINE  state¬ 
ments  will  be  deflnitionally  self-contained;  the  others  will  be  de¬ 
fined  in  the  context  of  the  program  preamble t 
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Cons  ider  che  following  routine: 

ROUTINE  FOR  ILLUSTRATION(X,Y,Z,I ) 

DEFINE  X,  Y  AND  Z  AS  REAL  VARIABLES 
DEFINE  I  AS  AN  INTEGER  VARIABLE 
• 

e 

END 

This  routine  can  be  written  without  one  of  the  DEFINE  statements, 
depending  on  the  NORMALLY  conditions  of  the  program  preamble.  It  is 
written  as  shown  above  to  ensure  that  the  routine  will  not  be  altered 
no  matter  how  the  preamble  is  changed. 

Arguments  in  statements  that  call  a  routine  must  match  the  argu¬ 
ments  of  the  defined  routine  in  mode.  Routine  ILLUSTRATION  above  can 
be  called  as  ILLUSTRATION (1 .0,2. 0,0. 5,1 ) ,  but  not  as  ILLUSTRATION- 
(1 ,2. 0,0. 5,1 ).  Mode  conversions  are  not  made  automatically  as  they 
are  in  "mixed  mode"  expressions . 

The  number  of  arguments  in  a  routine,  like  the  number  of  sub¬ 
scripts  in  a  subscripted  variable,  is  fixed.  If  a  routine  appears 
in  different  places  in  a  program  with  a  varying  number  of  arguments, 
standard  corrective  rules  are  applied. 

The  "correct"  number  of  arguments  for  a  routine  can  be  declared 
in  the  DEFINE  statement  that  defines  its  mode.  For  this  use  the 
DEFINE  statement  has  either  of  the  phrases 

GIVEN  i  ARGUMENTS  or  GIVEN  1  ARGUMENT 
added  to  it,  as  in  the  declarations 

DEFINE  SQRT  AS  A  REAL  FUNCTION  GIVEN  1  ARGUMENT 

and 

DEFINE  VALUE  AS  AN  INTEGER  FUNCTION  WITH  3  ARGUMENTS 

The  words  WITH  or  GIVING  can  be  substituted  for  GIVEN  as  desired. 

The  words  ARGUMENT  and  its  synonym,  VALUE,  are  optional.  Usually 
there  is  no  difference  between  the  number  of  arguments  defined  and 
the  number  used,  and  the  correct  number  is  the  number  found  in  all 
statements.  But  if,  either  inadvertently  or  by  design,  the  number 
of  arguments  varies,  the  following  rules  are  applied: 
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(a)  If  fewer  arguments  are  listed  than  are  correct,  the  missing 
arguments  are  assumed  to  be  zero  and  a  warning  message  issued.  Thus, 
a  routine  that  has  been  defined  as 

PREAMBLE 

DEFINE  SUM  AS  A  REAL  FUNCTION  WITH  1  ARGUMENT 
END 

ROUTINE  TO  SUM(N) 

DEFINE  N  AS  AN  INTEGER  VARIABLE 
FOR  1=1  TO  N,  ADD  1/1  TO  X 
RETURN(X) 

END 

when  used  in  a  subsequent  statement  as 
LET  ANSWER3 COUNT +T0T  AL+S  UM 
will  be  compiled  as  though  it  were  written 
LET  AN  SWE  RECOUNT +T0T  AI.+S  UM  ( 0 ) 

and  a  warning  message  will  be  generated.  This  is  clearly  an  incorrect 
program,  as  SUM  can  never  be  anything  but  0. 

(b)  If  mere  arguments  are  listed  than  are  correct,  the  extra 
arguments  are  ignored  and  a  warning  message  issued.  This  could  happen 
if  the  above  example  had  its  calling  statement  written  incorrectly  as 

LET  ANSWER=C0UNT+T0TAL+SUM(N ,M) 

Such  a  statement  will  be  compiled  as  though  it  were  written 

LET  ANSWER3 CQUNT+TOTAL+SUM(N) 

and  a  warning  message  will  be  generated. 

If  a  function  does  not  have  its  number  of  arguments  defined,  no 
check  is  made  to  determine  if  the  correct  number  is  used.  The  program 
is  compiled  as  written,  with  responsibility  for  ensuring  internal  con¬ 
sistency  left  to  the  programmer. 

It  is  now  possible  to  illustrate  the  definition  and  use  of  some 
routines  used  as  functions, 

(1)  A  routine  to  evaluate  the  series 
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The  routine  has  two  arguments :  the  number  of  terms  In  the  series 
that  are  to  be  summed,  and  the  value  to  be  substituted  for  x. 

In  the  program  preamble: 

DEFINE  SUM. SERIES  AS  A  REAL  FUNCTION  WITH  2  ARGUMENTS 


Routine  definition: 


ROUTINE  TO  SUM. SERIES  GIVEN  N  AND  X 
DEFINE  X  AND  SUM  AS  REAL  VARIABLES 
DEFINE  I  AND  N  AS  INTEGER  VARIABLES 
FOR  I  -  1  TO  N,  ADD  1/(X**I)  TO  SUM 
RETURN  WITH  SUM 
END 


Routine  used  as  a  function: 

LET  VALUE*SUM.SERIES(10,2)  sets  VALUE  equal  to  the  sum 

10  l  i  i  i  i 

J  +  i*.  +  ...  +  s  0.999 


1  1  '  2  '  3 

1-1  2  2  2  2 


,1G 


LET  VALUE«SUM.SERIES(N,X+Y)  sets  VALUE  equal  to  the  sum 

N  , 

\  - -  ;  if  X-l,  Y-4  and  N-3,  VALUE-  0.248 

1-1  (X+Y) 


LET  VALUE-  SUM.SERIES{40,SIN.F(THETA) )  sets  VALUE  equal  to 


40 

l 


1-1  8in(0)‘ 


(2)  A  routine  to  compute  a  square  root  (see  Sec.  1-16-4). 
In  the  program  preamble: 

DEFINE  SQRT  AS  A  REAL  FUNCTION  WITH  1  ARGUMENT 

Routine  definition: 

ROUTINE  FOR  SQRT(V) 

NORMALLY,  MODE  IS  REAL 

LET  V-ABS.F(V)  "IF  V  IS  NEGATIVE,  TAKE  ROOT  OF  +V 
'GUESS'  LET  Sl-V/2 
'LOOP'  LET  S2»(S1+V/S1 )/2 
IF  ABS.F(S1-S2)  IS  LESS  THAN  0.0001, 

RETURN  WITH  S2 

OTHERWISE  LET  S1-S2  GO  TO  'LOOP' 

END 
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Routine  used  as  s  function: 

seme  as  library  function  SQRT.F,  e.g.,  LET  X-SQRT(Z) 

note:  SQRT(X)  is  accurate  to  0.0001 
SQRT(-X)=SQRT(X) 

(3)  An  example  to  illustrate  the  definition  and  use  of  a  routine 
with  a  varying  nuaber  of  arguments.  The  routine  has  three  arguments 
X,  Y,  and  Z;  it  has  the  value  X  if  Z»0,X2  if  Z  >  0  and  X+Y  if  Z  <  0. 

In  the  program  preamble: 

DEFINE  VALUE  AS  A  REAL  FUNCTION 

Routine  definition: 

ROUTINE  VALUE  GIVEN  Z,  X  AND  Y 

DEFINE  X,  Y  AND  Z  AS  REAL  VARIABLES 

IF  Z  EQUALS  0  RETURN (X)  ELSE 

IF  L  IS  GREATER  THAN  0  RETURN  WITH  X**2  ELSE 

RETURN  WITH  X+Y  END 

Routine  used  as  a  function: 

(a)  LET  VAL*VALUE(2.0),  10.0)+  compiles  as  LET  VAL=VALUE(2.0,10. 0,0.0) 

and  sets  VAL* 100.  —  used  this  way  if  Z  known  to  be  _>  0. 

(b)  LET  VAL*VALUE(-1.0,16.0,Z)  sets  VAL=16  +Z 

(c)  LET  VAL- VALUE ( N , Y , X+SQRT . F{N**2 ) )  sets: 

VAL*  Y  if  N-0 

VAL-  Y2  if  N>0 

VAL-  Y+X+SQRT.F(N**2)  if  N<0 

In  example  (3c)  some  of  the  variables  present  in  the  routine 
argument  list  when  the  routine  is  called  have  the  same  names  as  vari¬ 
ables  appearing  in  the  function  definition.  They  are  not  the  same 
variables.  The  variables  X  and  Y  used  inside  the  routine  are  local 
variables  and  are  defined  only  within  the  routine.  The  variables  in 
the  calling  statement  may  be  global,  or  they  may  be  local  to  the  call¬ 
ing  routine.  This  is  the  only  way  that  local  variable  values  can  be 
passed  out  of  a  routine.  Let  the  calling  routine  be 


^Since  VALUE  has  REAL  arguments,  2.0  and  10.0  rather  than  2  and 
10  must  be  used. 
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ROUTINE  TO  EVALUATE(N,Q,R) 

DEFINE  X,Y,Z,N,Q,R  AS  REAL  VARIABLES 
LET  X-N**2*Q**2  LET  Y-X+Q  LET  Z-X+R 
RETURN  WITH  VALUE(N,Y,Z+SQRT.F(N**2)) 

END 

The  local  variable  Y  In  EVALUATE  la  assigned  a  value  and  used  as  an 
argument  In  the  call  on  the  routine  VALUE.  The  values  of  N,Y  and 
Z+SQRT.F(N**2)  In  the  routine  EVALUATE  are  assigned  as  the  Initial 
values  of  the  local  variables  Z,  X,  and  Y  in  the  routine  VALUE,  in 
that  order.  The  names  in  the  different  routines,  although  identical, 
do  not  refer  to  the  same  memory  locations. 

2-20  ROUTINES  USED  AS  MORE  GENERAL  COMPUTATIONAL  PROCEDURES 

A  routine  used  as  a  function  returns  a  single  result,  but  It  may 
also  effect  other  changes  by  altering  values  of  global  variables. 

Generally,  a  routine  can  be  used  as  a  procedure .  A  routine  used 
as  a  procedure  is  called  on,  not  to  return  a  single  value,  but  to 
perform  a  task.  The  task  may  be  to  compute  one  or  more  values  and 
return  them  to  a  calling  program,  to  modify  values  of  global  variables, 
or  to  perform  some  noncomputational  act,  such  as  executing  a  RESERVE 
statement.  A  routine  used  as  a  procedure  need  not  be  declared  in  the 
program  preamble.  There  are  two  ways  of  examining  a  routine  to  deter¬ 
mine  whether  it  can  be  used  as  a  procedure: 

(a)  Routines  that  are  used  as  procedures  can  have  arguments  in 
an  output  argument  list.  These  arguments  are  unsubscrlpted  local 
variables  that  receive  values  computed  within  the  routine.  They  are 
Initialized  to  zero  each  time  the  routine  is  called.  The  aubaequently 
computed  values  are  assigned  to  named  variables  in  a  calling  program 
when  the  routine  returns  control  to  it, 

(b)  Routines  that  are  used  as  procedures  return  control  to  a 
calling  program  with  a  special  RETURN  statement.  Because  no  single 
value  is  returned  as  the  value  of  a  procedure,  there  is  no  need  for, 
nor  any  possibility  of,  executing  a  statement  such  as  RETURN  WITH 
arithmetic  exprveeion. 

A  routine  can,  in  general,  have  both  input  and  output  arguments. 
Input  arguments  were  discussed  in  Sec.  2-19\  they  can  be  specified 
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in  routines  that  are  used  either  as  functions  or  procedures.  Output 
arguments  can  only  be  used  In  routines  that  are  used  as  procedures. 

They  are  not  always  necessary,  however,  as  a  procedure  can  transmit 
outputs  through  global  variables.  When  this  Is  done,  the  only  way 
to  distinguish  a  routine  used  as  a  procedure  from  one  used  as  a  func¬ 
tion  is  by  the  different  RETURN  statement  and  by  the  lack  of  a  defini¬ 
tion  in  the  preamble. 

Output  arguments  are  specified  by  appending  the  phrase 
YIELDING  argument  list 

to  a  ROUTINE  statement.  An  output  argument  list  contains  the  names 
of  local  variables,  as  in  the  statement 

ROUTINE  TO  ANALYZE. CIRCLE  GIVEN  RADIUS  YIELDING  AREA  AND  CIRCUMFERENCE 

In  this  statement,  the  local  variable  RADIUS  is  used  to  transmit  an 
input  value  from  the  calling  to  the  called  program.  The  local  vari¬ 
ables  AREA  and  CIRCUMFERENCE  are  used  to  transmit  output  values  from 
the  routine  to  calling  programs. 

Routines  that  are  used  as  procedures  are  called  by  the  statements 

CALL  routine  name 
PERFORM  routine  none 
NOW  routine  name 

If  argument  lists  are  used,  they  are  written  after  the  routine  name. 

Various  forma  of  argument  list  structures  can  be  used.  The  statements 
below  are  equivalent: 

CALL  TARGET  GIVEN  RANGE  YIELDING  ELEVATION  AND  CHARGE 
CALL  TARGET  (RANGE)  YIELDING  ELEVATION,  CHARGE 
NOW  TARGET  THE  RANGE  YIELDING  ELEVATION  AND  CHARGE 
PERFORM  TARGET  (RANGE)  YIELDING  ELEVATION,  CHARGE 

The  following  example  shows  how  a  routine  used  as  a  procedure  is 
defined  and  how  it  can  be  used: 

Routine  definition: 

ROUTINE  FOR  CIRCLE  GIVEN  RADIUS  YIELDING  AREA  AND  CIRCUMFERENCE 

DEFINE  RADIUS,  AREA  AND  CIRCUMFERENCE  AS  REAL  VARIABLES 

LET  CIRCUMFERENCE-  2*PI.C*RADIUS 

LET  AREA-  PI ,C*RADIUS**2 

RETURN 

END 
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Routlnc  used  in  a  program: 

(a)  READ  R  CALL  CIRCLE  GIVEN  R  YIELDING  P  AND  C 

(b)  IF  A>B  <  0  PERFORM  CIRCLE(A)  YIELDING  A,B 

In  (a)  cha  routine  CIRCLE  is  given  the  value  R  as  an  input  argu¬ 
ment.  Using  this  value  for  the  local  variable  RADIUS,  it  computes 
the  values  AREA  and  CIRCUMFERENCE  and  assigns  them  to  the  output  argu¬ 
ments  P  and  C,  respectively.  The  variables  P  and  C  are  not  used 
within  the  routine  CIRCLE;  they  receive  new  values  when  the  routine 
returns  to  the  calling  program. 

In  (b)  the  variable  A  appears  in  both  the  input  and  the  output 
argument  list.  When  this  is  done  there  is  no  conflict,  as  there  la 
a  clear  order  in  which  input  and  output  arguments  are  communicated. 
First,  the  initial  value  of  A  is  transferred  to  the  local  variable 
RADIUS.  Next,  the  computations  of  the  routine  are  performed.  Finally, 
new  v&lues  of  A  and  B  are  set  when  the  routine  returns  to  the  calling 
program. 

(c)  CALL  CIRCLE(X+Y**2+Z**2+(P/Q))  YIELDING  AREA  AND  CIRCUM 

In  (c)  an  expression  is  used  in  the  input  argument  list  to  trans¬ 
mit  a  value  to  RADIUS,  the  typical  use  of  an  input  argument.  Output 
arguments,  however,  can  only  be  variables  (which  may  be  subscripted) 
as  they  do  not  denote  values,  but  memory  locations  in  which  values 
are  stored. 

The  "correct"  number  of  arguments  for  a  routine  used  as  a  pro¬ 
cedure  can  be  declared  in  a  program  preamble  by  a  statement  of  the 
form 

DEFINE  name  AS  A  ROUTINE  GIVEN  i  ARGUMENTS  YIELDING  1  VALUES 

As  usual,  some  variations  are  allowed:  ncme  may  be  a  list  of  routine 
names  and  the  word  ROUTINES  used;  the  word  A  is  optional;  WITH  and 
GIVING  ara  synonyms  for  GIVEN;  ARGUMENTS  is  a  synonym  for  VALUES;  both 
the  GIVEN  and  YIELDING  phrases  are  optional.  Examples  of  each  of 
these  variations  are  given  in  later  sections. 

If  a  greater  or  smaller  number  of  arguments  appears  in  a  CALL  or 
a  ROUTINE  statement  than  were  defined  as  correct  In  a  program  preamble, 
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Che  mu  rules  thee  apply  to  functions  are  observed.  Missing  argu¬ 
ments  in  input  lists  having  less  than  the  "standard"  maW>er  of  argu¬ 
ments  are  assumed  to  be  sero  and  additional  arguments  are  Ignored. 
Additional  arguments  in  output  lists  are  ignored,  and  Biasing  argu¬ 
ments,  because  they  are  needed  to  receive  output  variables,  are  created 
by  the  compiler.  The  values  transmitted  to  them  are  not  accessible 
to  the  calling  program.  Warning  messages  are  issued. 

If  a  routine  la  defined  w'th  only  GIVING  arguments,  it  is  aesiaeed 
to  have  no  YIELDING  values;  if  it  is  defined  vlth  only  YIELDING  values, 
it  is  assumed  to  have  no  GIVING  arguments. 

2-21  ROUTINES  USED  AS  FUNCTIONS  AND  AS  PROCEDURES 

Often  there  la  a  possibility  of  using  a  routine  as  both  a  function 
and  a  procedure.  The  choice  depends  upon  the  number  of  output  values 
the  routine  returns  and  the  manner  in  which  the  routine  is  uae'I.  A 
routine  can  be  used  as  a  function  and  as  a  procedure  by  using  both 
types  of  RETURN  statements.  When  the  routine  returns  from  a  RETURN 
WITH  statement,  it  returns  a  value  to  a  calling  program;  whan  it  re¬ 
turns  from  a  RETURN  statement,  it  makes  output  assignments,  if  there 
are  any,  and  returns  to  the  statement  following  the  CALL. 

The  routine  CIRCLE  of  the  previous  section  can  be  used  as  an 
example  of  how  c  routine  can  be  written  and  used  as  both  a  function 
and  a  procedure. 

In  the  program  preamble: 

DEFINE  CIRCLE  AS  A  REAL  FUNCTION 

Routine  definition: 

ROUTINE  FOR  CIRCLE  GIVEN  R  AND  N  YIELDING  A  AND  C 

DEFINE  R,  A  AND  C  AS  REAL  VARIABLES 

DEFINE  N  AS  AN  INTEGER  VARIABLE 

LET  A-PI.C*R**2  LET  C-2*PI.C#R 

IF  N-0  RETURN  ELSE  RETURN  WITH  A 

ENO 

Routine  used: 

(a)  LET  C0ST-D0LLARS. PER. SQUARE. FOOT -CIRCLE (RADI  US, 1 ) 

(b)  READ  R  CALI  CIRCLE(R.O)  YIELDING  AREA  AND  CIRC 
LET  COST "DOLLARS . ?ER. SQUARE . FOOT-AREA 

LET  ’  ENGTH-NUWER. OF. STRANDS *C IRC 
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Nodes  the  Added  input  argument  Chet  determines  how  Che  routine  is 
used  so  thst  s  proper  return  is  effectsd.  A  code  stay  be  provided 
eithex  this  vsy  or  ss  s  global  variable. 

2-22  ARRAY  PO UTTERS  AS  ROUTIRE  ARGUMENTS 

Thus  far,  all  routine  arguments  were  either  arithmetic  expres¬ 
sions  or  vsrieblee.  They  were  expressions  in  input  lists  because, 
as  was  indicated,  such  lists  transmit  values  from  calling  to  called 
programs.  They  were  variable*  in  output  lists  because  values  computed 
in  routines  are  assigned  to  them.  The  transmission  of  entire  arrays 
was  not  mentioned. 

Array  pointers  can  be  used  as  arguments  of  routines.  When  an 
array  pointer  is  used  in  an  argument  list,  the  pointer  to  the  erray  is 
passed  to  the  routine.  This  pointer  is  used  in  place  of  e  local  vari¬ 
able  pointer  that  appears  in  the  routine.  An  erray  pointer  can  be 
used  in  an  input  or  output  argument  list.  There  is  no  transfer  of 
values  of  an  array  before  or  after  a  routine  le  executed  as  there  le 
when  unsubacrlpted  variables  or  expressions  are  used  aa  arguments; 
retrieval  and  assignment  of  array  values  during  execution  are  accoat- 
pllshed  through  array  pointer^. 

When  an  array  is  used  as  an  argument  of  a  routine,  lte  dimension¬ 
ality  must  be  specified  in  a  DEFINE  statement  In  the  routine.  Each 
use  (call)  of  a  routine  that  has  array  arguments  must  have  arrays  of 
the  same  dimension  in  its  argument  lists.  The  following  prof ran 
illustrates  the  use  of  an  array  name  in  a  routine  used  as  a  function: 

SOUTINE  FOR  VECTOR. PRODUCT (X.Y) 

DEFINE  X  AND  Y  AS  REAL,  1-OINENSlONAl  ARRAYS 

DEFINE  SUM  AS  A  REAL  VARIABLE  DEFINE  I  AS  AN  INTEGER  VARIABLE 

FOR  I  -  1  TO  DIM. F(X(#) } ,  ADO  i(I)*Y(I)  TO  SI* 

RETURN  WITH  SUM 
END 

In  the  above  routine  X  and  Y  are  local  arrays.  When  the  routine 
is  called,  pointer  values  are  given  to  the*.  If  the  routine  la  called 
a*  VECTOR. PRODUCT(COST(*),UNIT(*)),  the  statement  FOR  I  -  1  TO 
DIN.F(X(*}),  A00  X{ I )*Y( I )  TO  SUM  la  inCerpretad  aa  FOR  I  «  1  TO 
DIM. F(C0ST(*) ) ,  AOv  C0ST( I )*U*IT{ I )  TO  SUM. 
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If  i  program  haa  che  arrays  LIST  and  VECTOR  defined  and  the 
following  values: 

LIST(l)  «  2  VECTOR(I)  «  4 
LIST  2)  •  3  VECT0R(2)  -  6 
LIST(3)  «  7  VECT0R(3)  «  0 

LIST! 4)  «  -I  VECTOR^)  -  15 
L I  ST ( 5 )  «  0  YECT0R{5)  •  -5 

the  ststenent  LET  VALUE-VECTOR. PRODUC f(L!ST(*) ,  VECTORS) )  seta  VALUE-11. 

Arrays  used  aa  arguaenta  need  not  be  RESERVED  In  a  routine  unless 
they  have  not  been  RESERVED  previously.  If  they  are  reserved  within 
a  routine,  they  dust  appear  as  both  input  and  output  arguaents  so  that 
the  location  of  the  newly  allocated  memory  can  be  passed  back  to  the 
calling  program.  In  this  respect,  array  arguments  are  unlike  sub¬ 
scripted  local  variables  that  Bust  be  RESERVED  at  the  beginning  of 
a  routine. 

The  important  features  to  reaeaber  about  arrays  used  as  arguaents 
are  (1)  the  pointer  to  an  array  is  transmitted,  rather  than  the  indi¬ 
vidual  eleaent  values,  and  (2)  the  diaenal onality  of  the  array  Bust 
be  declared  in  the  routine.  Soae  saaple  programs  illustrate  these 
points. 

(1)  A  routine  to  ccwnpute  the  trace  of  a  matrix.  The  trace  of 
a  matrix  is  defined  aa  the  sum  of  Its  diagonal  elegants 

N 

tt'(A)  -  l  A(I,  I) 

1-1 

The  array  A  must  have  both  dimensions  equal;  It  aust  be  defined  by  a 
statenent  such  aa  RtSERVE  A(*,*)  AS  N  BY  N.  The  following  routine 
uses  an  array  name  aa  ocu  of  its  arguments  and  the  aixe  of  its  diswn- 
elona  ae  another. 

In  the  prograa  preamble: 

DEFINE  TRACE  AS  A  REAL  FUNCTION  WITH  2  ARGUMENTS 


Routine  definition: 


ROUTINE  TRACE (N.HATRIX) 

DEFINE  SUM  AS  A  REA1.  VARIABLE 

DEFINE  MATRIX  AS  A  REAL,  2-DIMENSIONAL  ARRAY  DEFINE  I  AND  N  AS 
INTEGER  VARIABLES 

FOR  I  •  1  TO  N,  ADO  MTRIX(M)  TO  SUM 
RETURN  WITH  SUM  END 


Routine  used  in  a  program: 

(a)  To  avaluaca  tha  trace  of  a  matrix  called  TABLE 
LET  VALU£-TRALE( DIM. F(TA8LE(1,*)), TABLE (V)) 

(b)  To  aua  the  firat  5  diagonal  element*  of  TABLE 
LET  VALU£-TRACE(5.TA8LE(*.*) ) 

Hotica  that  a  routine  of  tha  form  of  SUM. SERIES  (see  p.  97)  can¬ 
not  be  ueed  for  thla  purpoae,  aa  it  tranamita  the  value  of  an  argument 
to  be  aummed  and  not  a  pointer.  A  function  auch  aa  TRACE  can  be  uaed 
aeveral  time*  in  the  aame  axpreaalon  with  different  argument#,  aa: 

LET  SUM-TRACE (10, TABLE (*,*})  ♦  TRACE (Y ,R0STER( *,*) )  ♦ 

TRACE ( DIM. F( X(1,*)),X{#,*)) 

(2>  A  routine  uaing  array  argumenta  and  defined  aa  a  function, 
but  doing  more  than  merely  returning  a  computed  vlua  to  a  program 
calling  it. 

In  the  program  preamble: 

DEr'.NE  PROCESS. DATA  AS  A  REAL  FUNCTION 


Routine  definition: 

ROUTINE  TO  PROCESS. DATA  GIVEN  CODE,  LIST1  AND  LIST2 
NORMALLY,  MODE*  INTEGER 

DEFINE  LIST!  AND  LIST2  AS  1-0IMENSI0NAL  ARRAYS 
IF  CODE  IS  GREATER  THAN  0  GO  TO  PRODUCT 
OTHERWISE  FOR  I  •  1  TO  DIM. FfLISTl (*) ) , 

00  LET  LIST1 ( I )-SQRT. F  LISTl(I)) 

LET  LI5T2( I ) -SQRT . F( L I  ST? ( I ) ) 

REPEAT 

'PRODUCT'  RETURN  WITH  VECTOR. PRODUCT! L 1ST  1 (*) ,L IST2(*) ) 
END  "OF  ROUTINE  PROCESS. DATA 


Routine  uaed  in  program: 

If  PROCESS.DATA  i*  railed  with  CODE  *  D,  It  return*  the  value 
of  VECTOR. PRODUCT  (see  p.  101)  to  the  calling  rou'tr.e;  It  doe* 
not  alter  the  valuea  cf  the  array*  In  the  argvaaent  list.  If 
called  with  CODE  •  0,  the  routine  replacea  the  element*  of  LIST’ 
and  LIST?  (or,  more  precisely,  the  element*  indicated  hr  the 
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array  pointers  used  in  the  calling  program)  vith  their  square 
roots  and  returns  with  the  VECTOR. PRODUCT  of  the  altered  arrays. 

(3)  A  routine  adding  two  two-dimensional  arrays  together  and 
storing  their  sum  in  a  third  array. 

In  the  program  preamble: 


Nothing  needed  since  routine  is  used  as  a  procedure. 

Routine  definition  [note  the  use  of  comments  in  the  ROUTINE  statement] 

ROUTINE  TO  ADD.11ATRICES  GIVEN  '  *  INPUTS' '  A,B  AND  "OUTPUT"  C 
DEFINE  A,  B  AND  C  AS  REAL,  2-DIMENSIONAL  ARRAYS 
NORMALLY,  MODE -INTEGER 

FOR  I  «  1  TO  DM.F(A(VU,  FOR  J  *  1  TO  DIM-F(A(1  ,*)), 

LET  C(I,J)«A(I,J)*B(I,J) 

RETURN  END 


Routine  used  in  program: 

(a)  PERFORM  ADD. MATRICES  GIVEN  COST. TO. MAKE (V) . 

C0ST.T0.SHIP(*,*)>  AND  TOTAL.COST(V) 

(b)  IF  D)M.F(A(1,*))  EQUALS  nIM.F{B[l ,*)) 

NOW  ADD. MATRICES  (a(*,*),B(\*),APLUSB(*.*)) 
OTHERWISE  CALL  ERROR(l) 


(4)  A  routine  illustrating  the  use  of  local  subscripted  vari¬ 
ables  in  a  routine.  It  uses  the  routine  TRACE  (see  p.  104)  and  a 
local  array  TEK?  '  compute  a  function  of  an  input  array  without 
changing  any  values  of  the  input  arrey  itself. 

In  the  program  preamble: 

DEFINE  QUANTITY  AS  AN  INTEGER  FUNCTION 


Routine  definition: 


ROUTINE  QUANTITY  GIVEN  N  AND  MATRIX 

DEFINE  MATRIX  AND  TEMP  AS  REAL,  2-DIMENSIONAL  ARRAYS 

DE-INE  N  AS  AN  INTEGER  VARIABLE 

RESERVE  TEMP(*,*)  AS  N  BY  N 

FOR  I  -  1  TO  N,  FOR  J  -  1  TO  N, 

LET  TEMP(I,J)»MATRIX(I,J)**2 
RETURN  WITH  TRACER, TEMP(V) )  END 

Tha  local  variables  1,0,  and  TEMP  are  "created"  when  the  routine 
is  called,  as  whet;  a  calling  program  contains  the  statement 

LET  Q-QUANTITY(NO.SEGS,  DISTANCE. TABLE(\*}) 
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The  variables  I  and  J  have  the  NORMALLY  conditions  of  the  program 
preamble,  as  they  are  not  mentioned  in  the  routine  preamble.  The 
array  TEMP  is  defined  as  REAL  and  two-dimensional  in  the  routine  pre¬ 
aable.  Once  TEMP  has  been  reserved ,  it  can  be  used  in  calls  on  other 
routines;  this  is  done  in  the  call  on  the  routine  TRACE. 

Notice  that  QUANTITY  has  been  defined  as  an  INTEGER  function. 
Because  all  the  variables  and  the  function  TRACE  are  REAL,  a  conver¬ 
sion  is  made  at  the  RETURN  statement  to  assign  an  INTEGER  value  to 
QUANTITY  before  it  returns  to  the  program  that  called  it. 

(5)  A  routine  illustrating  the  use  of  an  array  pointer  in  an 
output  argument  list.  It  is  used  as  a  monitor  routine  within  a  pro¬ 
gram  to  record  array  reservations  for  REAL,  one-dimensional  arrays. 
The  array  pointer  appears  in  the  output  list  so  that  the  location  of 
the  allocated  space  csa  be  returned  to  the  array  pointer  in  the  call¬ 
ing  program. 

In  the  program  preamble: 

Nothing  needed  since  the  routine  is  used  as  a  procedure. 

Routine  definition: 

ROUTINE  MONITOR  GIVEN  CODE,  N  YIELDING  NAME 

DEFINE  CODE  AND  N  AS  INTEGER  VARIABLES 

DEFINE  NAME  AS  A  REAL,  1 -DIMENSIONAL  ARRAY 

PRINT  1  LINE  WITH  CODE  AND  N  AS  FOLLOWS 

RESERVE  EXECUTED  FOR  ARRAY  ***,  LENGTH  *** 

RESERVE  NAME { * )  AS  N 

RETURN 

END 

Routine  used  in  program: 

(a)  CALL  MONITOR  (1,10)  YIELDING  VECT0R(*) 

(b)  CALL  MONITOR  GIVEN  4  AND  I*J  YIELDING  L!ST(*) 

(6)  A  program  illustrating  a  routine  used  as  a  procedure.  Note 
the  use  of  global  variables  and  arguments  in  transmitting  data  from 
the  main  program  to  the  routines  and  back  again. 
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PREAMBLE 

NORMALLY,  MODE  IS  INTEGER 

DEFINE  COSTS  AS  A  2-DIMENSIONAL  ARRAY 

DEFINE  MODE. FACTORS  AND  CLASS. FACTORS  AS  1 -DIMENSIONAL  ARRAYS 

DEFINE  CAPACITY  AS  A  4-DIMENSIONAL  ARRAY 

DEFINE  FROM,  TO  .MODE  AND  CLASS  AS  "GLOBAL"  VARIABLES 

END 


MAIN 

READ  NFROM,  NTO,  NMODE.NCLASS  "READ  MAXIMUM  DIMENSIONS 
RESERVE  COSTS(V)  AS  NFROM  BY  NTO,  MODE. FACTORS (*)  AS  NMODE, 

CLASS. FACTORS (*)  AS  NCLASS, CAPACITY (*,*,*,*)  AS  NFROM 
BY  NTO  BY  NCLASS  BY  NMODE 

READ  COSTS,  CLASS. FACTORS, MODE. FACTORS  "READ  INITIAL  DATA 

’REQUEST'  READ  FROM, TO .MODE, CLASS 

’INQUIRE’  CALL  RESERVATION  YIELDING  ANSWER 

IF  ANSWER  EQUALS  1 

NOW  FIND. COST  YIELDING  PRICE 
PRINT  1  LINE  WITH  MODE.CLASS, FROM, TO. PRICE  THUS 
MODE  *  CLASS  *  RESERVATION  FROM  TO  **  IS  AVAILABLE  FOR  ***  DOLLARS 
GO  TO  "NEXT  CUSTOMER"  REQUEST 
OTHERWISE  "FIND  OTHER  SPACE 
SUBTRACT  1  FROM  CLASS 
IF  CLASS  IS  GREATER  THAN  0  GO  TO  INQUIRE 
OTHERWISE  LET  CLASS=NCLASS 
SUBTRACT  1  FROM  MODF 

IF  MODE  IS  GREATER  THAN  0  GO  TO  INQUIRE 
OTHERWISE  PRINT  1  LINE  WITH  FROM  AND  TO  LIKE  THIS 
THERE  IS  NO  TRANSPORTATION  AVAILABLE  FROM  **  TO  **  TODAY 
GO  TO  REQUEST 
END  "OF  MAIN  ROUTINE" 


ROUTINE  FOR  RESERVATION  YIELDING  ANSWER 
IF  CAPACITY( FROM, TO, CLASS, MODE)  IS  GREATER  THAN  0 

SUBTRACT  1  FROM  CAPACITY( FROM, TO, CLASS, MODE) 
LET  ANSWER3 1  RETURN 
ELSE  LET  ANSWERS  RETURN 
END 


ROUTINE  TO  FIND. COST  YIELDING  SUM 

LET  SUM=*COSTS ( FROM ,TO ) *CLASS .  FACTORS ( CLASS ) *MODE .  FACTORS ( MODE ) 

RETURN  END 

The  above  program  processes  requests  for  transportation  reserva¬ 
tions.  It  reads  customer  requests  for  reservations  on  certain  inodes 
of  transportation  (train,  bus,  airplane),  in  seats  of  a  certain  type 
(first  class,  economy,  tourist),  from  specified  locations  to  specified 
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des tinatlons.  A  reservation  is  made  if  there  is  unused  capacity  in 
the  category  requested.  When  a  reservation  is  made,  a  space  is 
assigned  and  the  reservation  is  costed  and  reported.  Costs  are  based 
on  distance  and  type  of  accommodation.  If  a  space  is  not  available 
in  the  category  requested,  a  search  is  made  through  successively  lower 
classes  and  modes  until  either  a  space  is  available,  or  all  spaces 
have  been  examined  and  determined  unavailable.  This  program  assumes 
tnere  is  another  routine  that  returns  spaces  to  the  system  when  they 
are  vacated. 

The  points  to  note  in  this  program  ares 

(a)  The  program  preamble  sets  the  NORMALL'1  condition  to  INTEGER, 
thereby  declaring  all  variables  throughout  the  program  as  Integers 
unless  otherwise  specified,  and  declares  that  a  list  of  variables  are 
global.  All  other  variables  are  local. 

(b)  The  first  READ  statement  sets  initial  values  for  four  vari¬ 
ables  local  to  the  main  routine.  If  NFROM  and  NTO  are  set  to  A  and 

3  respectively,  the  program  will  accommodate  requests  for  travel  from 
four  locations  to  three  locations. 

(c)  The  RESERVE  statement  allocates  storage  to  the  arrays  of  the 
program  according  to  the  specifications  of  the  preceding  data.  These 
arrays  represent  the  basic  costs  of  travel  between  two  cities  (COSTS), 
the  class  and  mode  adjustment  factors  that  modify  the  basic  costs 
(CLASS. FACTORS  and  MODE. FACTORS) ,  and  the  number  of  spaces  initially 
available  in  each  class  and  mode  category  between  two  such  cities. 

(d)  The  next  READ  statement  initializes  the  program  to  the  par¬ 
ticular  data  values  that  are  used  in  the  run  of  the  program. 

(e)  The  next  statements  handle  specific  customer  requests.  Of 
particular  interest  is  the  use  of  the  global  variables  FROM  and  TO, 
and  CLASS  and  MODE,  to  transmit  information  from  the  main  program  to 
the  routines  RESERVATION  and  FIND. COST.  The  local  variables  ANSWER 
and  PRICE  have  been  used  to  show  how  local  variables  are  used;  there 
is  particular  reason  for  not  making  them  global,  or  for  not  making 
all  variables  local  and  communicating  ail  information  through  argu¬ 
ment  lists. 

(f)  The  local  variable  ANSWER  in  the  routine  RESERVATION  has 
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been  given  the  sane  name  aa  a  local  variable  in  the  main  routine  to 
show  that  this  can  be  done  without  conflict.  A  corresponding  variable 
in  the  routine  FIND. COST  has  been  given  a  different  name  to  show  that 
the  actual  name  is  of  no  importance;  only  its  location  in  the  argument 
list  is  Important.  It  also  illustrates  that  the  value  computed  as 
SUM  in  the  routine  FIND. COST  is  stored  in  the  local  variable  PRICE  In 
the  main  routine  when  FIND. COST  returns  to  that  program. 

(g)  FIND. COST  can  also  be  defined  as  a  function.  This  is  done 
by  modifying  the  routine  to: 

ROUTINE  TO  FIND. COST 

RETURN  WITH  COSTS ( FROM, TO )*CLASS. FACTORS ( CLASS )*M0DE. FACTORS (MODE) 
END 

and  using  the  routine  name  in  place  of  the  variable  PRICE  in  the  PRINT 
statement: 

PRINT  1  LINE  WITH  TYPE, CLASS, FROM, TO  AND  FIND. COST  AS  FOLLOWS 

The  preamble  will  then  be  modified  to  include  the  statement: 

DEFINE  FIND. COST  AS  AN  INTEGER  FUNCTION 

and  the  NOW  statement  in  the  main  routine  calling  on  FIND. COST  as  a 
procedure  would  be  removed. 

2-23  RETURNING  RESERVED  ARRAYS  TO  FREE  STORAGE 

When  a  RESERVE  statement  is  executed  it  allocates  a  fixed  number 
of  memory  cells  to  arrays  named  in  the  statement.  The  statement 

RESERVE  TABLE(*,*)  AS  10  BY  50 

assigns  500  memory  words  to  the  array  TABLE  when  it  is  executed. 

Every  array  having  memory  space  allocated  to  it  can  have  this  space 
returned  to  the  free  storage  pool  of  the  SIMSCRIPT  II  system  by  ex¬ 
ecuting  a  statement  such  as 

RELEASE  TABLE (*,*) 

This  statement,  which  in  its  general  form  is 

RELEASE  array-pointer  Hat 
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returns  all  elements  of  TABLE  to  free  storage  and  causes  the  array 
TABLE  to  be  undefined  until  it  is  once  more  reserved.  A  statement 
such  as  LET  TABLE ( 1 » 1 )  •  1  cannot  be  executed  after  TABLE  has  been 
released,  since,  for  all  practical  purposes,  the  array  TABLE  does  not 
exist. 

This  feature  is  useful  in  programs  that  can  be  structured  so 
that  all  of  their  arrays  need  not  be  in  storage  at  the  same  time. 

The  RESERVE-RELEASE  feature  can  be  used  to  define  one  or  more  arrays 
that  fit  within  memory  capacity,  operate  on  these  arrays,  release 
them,  define  new  arrays,  operate  on  them,  and  so  forth.  The  feature 
is  useful  for  executing  programs  that  exceed  computer  capacity. 

Because  local  arrays  are  not  automatically  released  when  a 
RETURN  statement  is  executed  in  routines  in  which  they  appear,  a 
RELEASE  statement  should  be  executed  before  returning.  Should  a 
programmer  forget  to  RELEASE  a  local  array  before  returning  from  a 
routine,  the  space  allocated  to  the  array  will  be  forever  inaccessible, 
its  pointer  having  been  destroyed  during  the  return  operation.  It  is 
not  possible  for  SIMSCRIPT  II  to  RELEASE  all  local  arrays  automatically, 
since  some  of  them  may  contain  pointers  to  sections  of  global  arrays. 

The  following  routine  illustrates  the  dynamic  reservation  and 
release  of  a  local  array  within  a  subprogram: 

ROUTINE  FOR  ANALYSIS  GIVEN  ARRAY 

DEFINE  ARRAY  AS  A  REAL,  2-DIMENSIONAL  ARRAY 

DEFINE  TEMP  AS  A  REAL,  2-DIMENSIONAL  ARRAY 

RESERVE  TEMP{*,*)  AS  DIM„F(ARRAY( *,*) )  BY  DIM. F(ARRAY { 1 ,*)) 

FOR  1=1  TO  DIM. F(ARRAY(*,*) ) ,  FOR  J=1  TO  DIM*F(ARRAY(1 ,*) ) , 

LET  TEMP ( I ,J)*ARRAY(I ,J) 

PERFORM  ROW. PERMUTATION  GIVEN  TEMP(*,*) 

LET  X*  DETERMINANT(TEMP(*,*)) 

RELEASE  TEMP(V) 

RETURN  WITH  X 
END 


ROUTINE  ROW. PERMUTATION  GIVEN  MATRIX 
' '  GENERATES  A  RANDOM  PERMUTATION 
' '  AND  EXCHANGES  ROWS  OF  THE  INPUT 
"  ARRAY 
END 


-112- 


ROUTINE  FOR  DETERMINANT  GIVEN  MATRIX 
' '  COMPUTES  THE  DETERMINANT  OF 
' '  THE  INPUT  MATRIX 

END 

2-24  GLOBAL  VARIABLES ,  ROUTINES,  AND  SIDE  EFFECTS 

When  global  variables  are  used  in  routines  that  interact  with 
one  another,  great  care  must  be  exercised  to  prevent  unwanted  side 
effects.  An  expected  change  in  a  program  is  a  change  in  value  of  one 
or  more  variables  that  is  obvious,  or  at  least  expected,  from  the 
form  of  a  statement.  A  side  effect  is  a  change  that  is  not  apparent 
from  the  form  of  a  statement  alone.  Side  effects  are  important,  as 
they  can  cause  unexpected  and  unwanted  results  if  they  are  not  taken 
into  account.  The  following  routine  illustrates  a  way  in  which  a 
side  effect  can  enter  into  a  program: 

Routine  definition: 

ROUTINE  VALUE ( X ) 

LET  A=SQRT.F(X) 

RETURN  WITH  4*A+A**3 

END 

Routine  used  in  a  program: 

In  the  preamble: 

DEFINE  A,B  AND  C  AS  REAL  VARIABLES 

DEFINE  VALUE  AS  A  REAL  FUNCTION 

In  the  main  program: 

READ  X  AND  A  LET  Z*A+( VALUE (X)*C) 

Since  X  is  not  defined  in  the  program  preamble,  it  is  a  REAL  local 
variable.  If  A=2,  C=l,  and  X=9,  Z  is  evaluated  as  follows:  (1) 
application  of  the  parentheses  rule  evaluates  (VALUE(X)*C)  first, 
setting  Aa3  and  VALUE=39,  and  (2)  application  of  the  operator  prece¬ 
dence  rule  adds  the  terms  A  and  VALUE  together,  setting  Z*42.  The 
side  effect  is  the  alteration  of  the  value  of  A  within  the  routine 
VALUE. 

If  the  above  computation  had  been  programmed  differently,  the 
computed  value  of  Z  might  not  have  been  the  same.  The  above  LET 


statement  and  the  ones  shown  below  look  alike  on  the  surface  but  pro¬ 
duce  different  results  In  the  context  of  the  program. 

In  the  main  program: 

READ  X  AND  A  LET  B«A  LET  Z«B+(VALUE(X)*C) 

If  we  again  let  As2,  C=1 ,  and  X=9,  the  two  LET  statements  are  evaluated 
as  follows:  (1)  B*2;  (2)  the  parentheses  rule  evaluates  ( VALUE (X ) *C) 
setting  A3 3  and  VALUE=39;  and  (3)  the  operator  precedence  rule  adds 
the  terms  B  and  ( VALUE ( X ) *C ) ,  setting  Z=41.  This  differs  from  pre¬ 
vious  results. 

Side  effects  are  commonly  introduced  by  using  functions  In  FOR 
phrase  control  expressions  that  are  evaluated  before  each  iteration, 
and  in  complex  logical  expressions  that  may  not  always  be  evaluated 
completely  (see  p.  137).  These  side  effects  can  be  eliminated  by 
(1)  being  aware  of  their  existence,  and  (2)  using  local  variables. 

The  following  program  segment  shows  how  a  local  variable  can  be  used 
to  inhibit  a  side  effect  that  the  routine  FN  is  assumed  to  produce: 

Write:  LET  V=FN{K) 

FOR  1=1  TO  V.LET  A(I)=0 

Instead 

of:  FOR  1=1  TO  FN(K) .LET  A(I)=0 

Use  of  the  local  variable  V  also  makes  the  program  more  efficient, 
as  it  eliminates  the  evaluation  of  FN ( K)  before  each  iteration  of  the 
loop. 

*  2-25  RECURSIVE  ROUTINES 

All  SUBSCRIPT  II  routines  are  recursive,  meaning  that  they  can 
call  upon  themselves.  The  concept  of  recursion  is  illustrated  in  the 
following  routine,  which  computes  the  value  of  the  factorial  of  n, 
where  factorial  (n)«n*(n-l)*(n-2)*. . ,*(2)*(1) . 

ROUTINE  FOR  FACTORIAL (N) 

IF  N-l,  RETURN  WITH  1 

ELSE  RETURN  WITH  N*FACT0RIAL(N-1 ) 

END 


The  routine  calls  on  itselt  repeatedly  until  it  has  reduced  its 
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argument  to  1.  If  this  function  were  called  with  N»4,  it  would  be 
evaluated  In  the  following  steps: 

FACTORI AL { 4 ) «4*FACT0R I AL ( 3 ) 

■4*(3*FACT0RIAL(2)) 

-4*  3*(2*FACTORIAL(I))) 

■4*(3*(2*(1 ))) 

-24 

This  is  not  an  efficient  way  to  compute  a  factorial,  but  it  does 
illustrate  the  concept  of  a  recursive  call. 

While  recursively  defined  routines  are  not  common,  they  are  ex¬ 
tremely  useful  in  some  computing  areas  —  theorem-proving  and  language 
translation,  for  example. 

Recursive  routines  are  important  because  their  local  variables 
are  unique  to  each  routine  call;  each  call  has  a  separate  "memory" 
that  shares  nothing  with  previous  calls  except  their  common  routine 
structure.  Global  variables  are,  of  course,  defined  across  all  levels 
of  recursion,  as  their  names  represent  the  same  values  at  all  points 
in  a  program. +  Global  variables  and  values  passed  in  argument  lists 
are  two  ways  that  recursive  routines  can  conmunicate  at  different 
levels . 

Program  efficiency  and  communication  are  two  reasons  why  one 
might  want  to  have  nonrecursive  routines.  The  mechanism  for  isola¬ 
ting  variables  from  a  program  and  making  them  local,  not  to  a  routine 
but  to  each  call  of  a  routine,  is  complicated.  Computer  time  can  be 
saved  if  this  isolation  is  eliminated.  Isolating  local  variables  of 
routines  between  routine  calls  also  makes  it  impossible  for  a  routine 
to  transmit  information  from  one  call  to  another  through  a  local  vari¬ 
able.  In  recursive  routines  this  can  only  be  accomplished  by  global 
variables  or  arguments. 

All  the  local  variables  of  a  pro- ram,  or  aelacted  local  variables 
in  individual  routines,  can  be  defined  as  SAVED  or  RECURSIVE.  If  a 
variable  is  SAVED  it  is  stored  in  a  memory  location  within  a  routine 
it  is  local  to,  and  all  references  to  it  access  this  same  location. 


^Unless,  of  course, 
defined  in  some  routines. 


a  global  variable  name  has  been  locally 
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A  SAVED  variable  la  noC  released  whan  control  raturna  to  a  calling 
prograa.  If  a  variable  la  RECURSIVE  it  la  stored  in  a  memory  location 
separate  from  the  routine  It  la  local  to  —  there  la  one  location  for 
each  recuralve  call  on  the  routine  and  each  call  acceaeee  a  different 
location.  RECURSIVE  variablea  are  releaaed  when  control  return#  to 
a  calling  program.  There  are  three  different  klnda  of  local  variablea: 
arguments,  SAVED  variablea,  and  RECURSIVE  variablea.  Argumenta  need 
not  be  defined,  aa  thla  Is  done  when  they  appear  in  Input  and  output 
argument  lleta  In  ROUTINE  atatementa.  Arguments  are  always  stored  aa 
RECURSIVE  variablea. 

All  local  variablea  in  a  prograa,  except  arguments,  can  be  declared 
a a  SAVED  or  RECURSIVE  by  using  the  phrase 

TYPE  IS  SAVED  or  TYPE  IS  RECURSIVE 
in  the  last  NORMALLY  statement  of  a  program  preamble,  as  in 

NORMALLY,  MODE  IS  REAL,  TYPE  IS  SAVED 

Since  the  last  NORMALLY  statement  in  the  program  preamble  applies  to 
all  local  variablea  unless  they  are  otherwise  qualified,  this  state¬ 
ment  sets  a  background  condition  that  is  binding  on  all  unqualified 
variables.  If  a  TYPE  phrase  is  not  used,  all  local  variables  are 
treated  aa  RECURSIVE. 

Within  routines,  local  variables  can  be  declared  as  SAVED  or 
RECURSIVE  in  a  NORMALLY  statement  or  In  DEFINE  statements.  In  DEFINE 
statements,  use  of  the  words  SAVED  or  RECURSIVE  is  slmll*.  to  use  of 
the  property  words  that  define  mode.  A  routine  might  contain  the 

statements : 

DEFINE  VALUE  AS  A  REAL, RECURSIVE  VARIABLE 

DEFINE  X,Y  AND  Z  AS  RECURSIVE, INTEGER  VARIABLES 

DEFINE  QUANTITY  AS  A  SAVED  VARIABLE 

Local  arrays  can  be  treated  as  SAVED  or  RECURSIVE  by  making  their 
base  pointers  SAVED  or  RECURSIVE.  Thus,  one  eight  write 

OEFINE  TABLE  AS  A  REAL .SAVED,?- DIMENSIONAL  ARRAY 

An  important  difference  between  SAVED  and  RECURSIVE  local  vari¬ 
ables  lies  In  their  initialised  value  when  a  routine  is  called.  A 
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RECURSIVE  local  variable  haa  an  Initial  value  of  zero  each  time  the 
routine  in  which  it  appears  is  called.  Recursive  variables  are  often 
used  for  this  property  alone.  A  SAVED  local  variable  retains  the 
value  left  in  I'.s  storage  location  when  Che  routine  was  last  used. 
Thus,  routines  can  use  SAVED  variables  to  pass  messages  froa  call  to 
call  concerning  their  operations.  The  first  tlae  a  routine  is  called, 
all  its  local  variables,  both  SAVED  and  RECURSIVE,  are  zero. 

Recursion  can  best  be  understood  by  showing  an  exaopla.  The 
program  below  uses  Horner's  i&ethod  for  evaluation  of  polynomials. 

This  aethod  has  the  computational  advantage  of  requiring  only  2(K-1) 
arithmetic  operations  to  evaluate  a  polynomial,  fewer  than  are  re¬ 
quired  by  straightforward  evaluation,  and  it  expresses  a  polynomial 
of  form  A(K)*A(K-1 )*X+. . .+m(1 K-l )  as  the  recursive  form 
A(K)+X*(A(K-1 )♦. . .+A( 1 )*X**(K-2) ) .  The  following  brief  SIMSCRIPT  II 
routine  demonstrates  a  program  for  evaluating  this  form: 

In  the  program  preamble: 

DEFINE  POLYNOMIAL  AS  A  REAL  FUNCTION 

Routine  deiinition: 

ROUTINE  FOR  POLYNOMIAL  GIVEN  A,X  AND  K 

DEFINE  A  AS  A  1-DIMENSIONAL, REAL  ARRAY 

DEFINE  X  AS  A  REAL  VARIABLE 

DEFINE  K  AS  AN  INTEGER  VARIABLE 

IF  K«0.  RETURN  WITH  0  ELSE 

RETURN  WITH  A{K)+X*  POLYNOMIAL ( A(#) ,X,K-1 ) 

END 

To  illustrate  how  the  routine  works,  we  describe  the  evaluation  of 
the  polynomial  9.2  ♦  2. IX  ♦  3.3X^.  The  coefficients  9.2,  2.1,  and 
3.3  are  stored  in  an  array  CGEF  as  C0EF(3',  C0EF(2\  and  C0EF(1), 
respective ly .  The  polynomial  ia  to  be  evaluated  with  X-0.5. 

The  routine  is  called  by  using  it  as  a  function  in  the  statement 

LET  VALUE-POLYNOMIAL(CO€F(*),0.5,3) 

The  polynomial  ia  evaluated  as 
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POLYNOMI AL  ( COEF(  *)  *0.5 ,3)=9.2  +  0.5*P0LYN0MIAL(C0EF(*),0.5,2) 

=9.2  +  0.5*(2.1  +  C.5*POLYNOMIAL(COEF(*),0.5,1)) 
=9.2  +  0.5*(2.1  +  0.5*(3.3 

+  0.5*P0LYN0MIAL(C0EF(*) ,0.5,0) ) ) 

=9.2  +  0.5*(2.1  +  0.5*{3.3  +  0. 5*0.0)) 

=9.2  +  0.5*(2.1  +  0.5*3. 3) 

=9.2  +  0.5*3.75 
=9.2  +  1.875 
=11.075 


An  example  of  a  recursively  called  routine  for  destroying  a 
binary  "tree"  is  shown  below.  The  tree  is  constructed  of  two-element, 
one-dimensional,  arrays  that  point  to  each  other.  To  illustrate  the 
tree-building  process,  the  following  program  segment  forms  the  apex 
of  a  binary  tree  named  TREE: 


NORMALLY  MODE  IS  INTEGER 

DEFINE  NOD  AND  NODE  AS  1-DIMENSIONAL  ARRAYS 

RESERVE  N0DE(*)  AS  2 

LET  TREE=N0DE(*)  LET  NQDE(*)=0 

RESERVE  N0DE( *)  AS  2 

LET  N0D(*)=TREE  LET  N0D( 1 ) -NODE ( *)  LET  N0DE(*)=0 

RESERVE  NODE ( *)  AS  2 

LET  N0D(2)=N0DE(*)  LET  N0DE(*)=G 


END 


NOD  is  used  as  a  dummy  array  name  to  which  a  previous  NODE  pointer  is 
assigned  to  allow  nodes  to  connect  to  the  nodes  above  them  in  the 
tree.  The  tree  constructed  by  the  program  above  is  exemplified  below: 


et  cetera 


et  cetera 


ct  cetera 


et  cetera 
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A  routine  to  destroy  such  a  tree  Is  shown  below.  Given  the 
pointer  to  the  tree,  the  routine  follows  all  paths  in  the  tree  and 
destroys  the  nodes  on  them. 

ROUTINE  DESTROY (NODE) 

NORMALLY  MODE  IS  INTEGER 
DEFINE  NODE  AS  A  1-DIM  ARRAY 
IF  N0DE(*)  IS  NO7  ZERO, 

FOR  1*1  TO  2.  CALL  DESTROY (NODE (I)) 

RELEASE  N0DE(*) 

REGARDLESS 
RETURN  END 

This  routine,  when  called  by  a  statement  such  as  NOW  DESTROY (TREE ) , 
calls  upon  Itself  as  each  node  destroys  the  nodes  below  it.  Since 
each  node  either  points  to  a  successor  node  or  is  zero,  the  routine 
can  tell  whether  it  has  to  follow  a  downward  path  to  destroy  successor 
nodes,  or  whether  it  can  destroy  the  ncde  it  is  working  on  by  releas¬ 
ing  it.  Perhaps  the  easiest  way  to  understand  this  routine  is  to 
construct  a  typical  tree,  such  as  that  shown  in  Fig.  2-9,  and  follow 
the  logic  through. 


Fig,  2-9  —  A  binary  tree 
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By  changing  one  statement,  as  shown  below,  the  routine  can  easily 
be  expanded  to  destroy  not  only  binary  trees,  but  those  containing 
limitless  branches  as  well. 

ROUTINE  TO  DESTROY (NODE) 

NORMALLY  MODE  IS  INTEGER 

DEFINE  NODE  AS  A  1 -DIMENSIONAL  ARRAY 

IF  NODE (*)  IS  NOT  ZERO, 

FOR  I»1  TO  DIM.F(N0DE(*)),  CALL  DESTROY ( NODE ( I ) ) 

RELEASE  N0DE(*) 

REGARDLESS 
RETURN  END 


The  DIM. F  function  allows  each  node  to  have  several  branches,  rather 
than  only  two.  Such  a  tree  might  look  like  Fig.  2-10. 


Fig.  2-10  —  A  complex  tree 
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2-26  DEFINITION  OF  SYNONYMOUS  NAMES  AND  OPEN  ROUTINES 

It  Is  not  at  all  unusual  to  have  large  programs  written  by  more 
than  one  person.  Problems  vire  often  segmented  into  parts  and  the 
parts  coded  separately  is  subprograms.  Later,  the  subprograms  are 
combined,  either  manually  or  automatically  by  an  executive  program. 

This  approach  presents  a  difficulty  because  great  administrative 
care  must  be  exercised  to  ensure  that  all  programmers  use  the  same 
names  for  global  and  local  variables  and  that  they  define  things  con¬ 
sistent  Ly.  The  primary  purpose  of  the  two  statements  in  this  section 
is  to  simplify  this  task. 

The  statement 

DEFINE  X  TO  MEAN  Z 

me an 8  that  whenever  the  word+  X  appears  in  a  program  it  is  replaced 
by  the  word  Z;  the  compiler  automatically  substitutes  Z  for  X  before 
interpretation.  It  will  not  extract  an  embedded  X,  as  in  the  name 
XRAY,  and  generate  the  name  ZRAY, 

The  general  form  of  the  DEFINE  TO  MEAN  statement  is 

DEFINE  word  TO  MEAN  string  of  words 

where  "string  of  words"  represents  the  information  punched  after  the 
word  MEAN  (separated  from  it  by  one  blank)  that  extends  to  the  end  of 
the  statement  card.  A  "string"  cannot  be  composed  entirely  of  blanks 
or  be  a  comment. 

The  rule  for  DEFINE  TO  MEAN  substitution  is  simple:  whenever  the 
specified  word  is  seen,  the  string  is  substituted  for  it  and  the 
statement  compiled  with  the  substitution.  Thus,  words  can  be  defined 


A  word  is  a  name,  number,  or  special  character.  It  is  possible 
to  redefine  variable,  label,  and  routine  names,  statement  keywords, 
special  characters  such  as  +  and  /,  and  numbers,  as 

DEFINE  +  TO  MEAN  * 

DEFINE  CONS  TO  MEAN  7.56 
DEFINE  <  TO  MEAN  ( 

DEFINE  >  TO  MEAN  ) 
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as  synonyms,  they  can  be  replaced  by  '.omplete  statements,  and  so 
forth. 

The  scope  of  the  DEFINE  TO  MEAN  statement  is  similar  to  that  of 
the  NORMALLY  statement.  When  used  in  a  program  preamble,  it  extends 
throughout  an  entire  program  until  overridden;  when  used  in  a  routine, 
it  holds  (until  overridden)  for  that  routine  only.  The  effect  of 
DEFINE  TO  MEAN  statements  can  be  withdrawn  by  the  statement  SUPPRESS 
SUBSTITUTION  and  reinstated  by  the  statement  RESUME  SUBSTITUTION. 

The  SUPPRESS  SUBSTITUTION  and  RESUME  SUBSTITUTION  statements  should 
be  placed  alone  on  cards,  since  substitution  takes  place  for  an  entire 
card  as  it  is  read  and  before  the  contents  are  interpreted.  If  other 
statements  appear  on  the  same  card  as  a  SUPPRESS  SUBSTITUTION  state¬ 
ment,  substitutions  are  made  for  such  statements  (if  called  for)  before 
the  SUPPRESS  command  is  recognized.  To  suppress  substitution  for  a 
particular  word,  the  word  itself  is  defined,  as  in  the  following 
example : 

SUPPRESS  SUBSTITUTION 

DEFINE  X  TO  MEAN  X 

RESUME  SUBSTITUTION 

If  the  SUPPRESS  statement  is  not  used,  the  current  substitution  will 
be  made  for  X  before  the  DEFINE  statement  is  recognized,  and  X  will 
never  be  redefined.  For  example,  if  X  has  previously  been  mentioned 
in  the  statement 

DEFINE  X  TO  MEAN  QUANTITY 

and  the  SUPPRESS  SUBSTITUTION  statement  is  omitted,  the  redefinition 
will  be 

DEFINE  QUANTITY  TO  MEAN  QUANTITY 

which  is  not  the  desired  definition. 

DEFINE  TO  MEAN  statements  are  not  limited  to  preambles,  but  can 
be  used  anywhere  in  a  program.  They  can  be  used  to  make  short,  local 
substitutions  or  extensive  changes  in  vocabulary.  The  following  ex¬ 
amples  illustrate  some  uses  of  the  DEFINE  TO  MEAN  statement: 
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(a)  Use  of  the  statement  to  change  a  word  In  a  routine  to  the 
same  word  used  in  other  routines  In  a  large  program.  The  word  repre¬ 
sents  a  global  variable  In  this  Illustration. 

ROUTINE  SAMPLE(X)  YIELDING  Y 

DEFINE  TABLE  TO  MEAN  LIST  [This  statement  Inserted  in  existing  program.] 
DEFINE  X  AND  Y  AS  REAL  VARIABLES 
FOR  I  -  1  TO  DIM.F(TABLE(*,*)), 

FOR  J  FROM  1  TO  DIM. F(TABLE( 1 ,*)) , 

ADD  TABLE  (IJ)  TO  Y 
IF  Y  IS  LESS  THAN  X  RETURN 
OTHERWISE  LET  Y*-1 
RETURN  END 

(b)  Use  of  the  statement  to  change  vocabulary.  Assume  you  do 
not  like  the  words  LET,  ROUTINE,  and  END,  and  you  prefer  to  use  the 
words  SET,  PROCEDURE,  and  FINISH  instead.  If  you  precede  programs 
written  with  these  words  by  the  statements 

DEFINE  SET  TO  MEAN  LET 
DEFINE  PROCEDURE  TO  MEAN  ROUTINE 
DEFINE  FINISH  TO  MEAN  END 


the  programs  will  be  translated  into  SIMSCRIPT  II  vocabulary  before 
compilation.  For  example,  the  program 

PROCEDURE  TO  FIND.MAX(X) 

DEFINE  X  AS  A  1 -DIMENSIONAL  INTEGER  ARRAY 

SET  MAX-X(1 )  ADD  1  TO  SET 

FOR  I  -  2  TO  DIM. F(X(*)),  SET  MAX-MAX. F(MAX,X( I)) 

RETURN  WITH  MAX 
FINISH 


when  submitted  for  compilation  preceded  by  the  three  DEFINE  TO  MEAN 
statements  will  be  compiled  as 

ROUTINE  TO  FIND.MAX(X) 

DEFINE  X  AS  A  1-DIMENSIONAL  INTEGER  ARRAY 

LET  MAX-X(l)  ADD  1  TO  LET 

FOR  I  ■  2  TO  DIM.F(X{*)),  LET  MAX-MAX. F(MAX,X( I)) 

RETURN  WITH  MAX 
END 


Notice  the  use  of  the  word  LET  as  both  a  variable  and  a  key  word. 

(c)  Use  of  the  statement  to  define  macro-instructions.  A  macro- 
instruction  is  a  compound  instruction  the’’  \  generated  from  one  key 
word.  The  statement 
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DEFINE  LOCAL  TO  MEAN  DEFINE  I,J»K,L  AND  M  AS  INTEGER  VARIABLES 

inserts  a  definition  card  for  the  variables  I,J,K,L,  and  ■'  wherever 
the  word  LOCAL  la  used.  This  is  useful  when  a  number  of  routines  use 
the  same  local  variables.  A  routine  can  be  written  sa 

ROUTINE  EXAMPLE (X) 

LOCAL 

DEFINE  X  AS  A  REAL  VARIABLE 

END 

<ind,  if  it  is  preceded  by  the  above  DEFINE  TO  MEAN  statement,  it  will 
be  compiled  as 

ROUTINE  EXAMPLE(X) 

DEFINE  I ,J,K,L  AND  M  AS  INTEGER  VARIABLES 

DEFINE  X  AS  A  REAL  VARIABLE 

a 

0 

0 

END 

Entire  sequences  of  statements  can  be  generated  directly  into  a 
program  by  an  extended  form  of  the  DEFINE  TO  MEAN  statement.  This 
statement  allows  more  than  one  line  of  statements  to  be  substituted 
for  a  particular  key  word,  and  it  offers  greater  possibilities  for 
mac ro-ins true t ion  generation.  The  statement  can  be  written  in  two  ways: 

SUBSTITUTE  THIS  LINE  FOR  word  and 

SUBSTITUTE  THESE  1  LINES  FOR  word 

In  the  first  statement,  the  contents  of  the  line  following  the  state¬ 
ment  is  substituted  for  the  key  word  wherever  it  appears;  in  the 
second  statement,  the  contents  of  the  following  f  lines  are  substi¬ 
tuted.  As  with  the  DEFINE  TO  MEAN  statement,  totally  blank  cards  and 
comments  cannot  be  substituted. 

DEFINE  TO  MEAN  and  SUBSTITUTE  statements  can  be  used  freely  in 
a  program  with  few  restrictions.  They  can  "call  on"  one  another  at 
different  levels  of  substitution.  The  following  statements  show  how 
a  series  of  DEFINE  TO  KEAN  and  SUBSTITUTE  statements  can  be  applied 
to  a  program  statement  and  used  to  translate  the  words  of  the  state¬ 
ment  into  legal  SIMSCRIPT  II  code: 


-124- 


SUBSTITUTE  THESE  2  LINES  FOR  ZZ 
SET  VALUE-B 
GO  TO  START 

DEFINE  SET  TO  MEAN  LET 
DEFINE  B  TO  MEAN  X(I)*Y(I)+1 

Program  statement: 

IF  VALUE  IS  GREATER  THAN  0  11  ELSE 

Translated  as: 

11  is  translated  to  SET  VALUE=B 

GO  TO  START 

SET  VALUE=B  is  translated  to  LET  VALUE=B  and  then  to 

LET  VALUEsX(I)*Y(I)+l 

Compiled  as: 

IF  VALUE  IS  GREATER  THAN  0 
LET  VALUE»X(I)*Y(I)+1 
GO  TO  START 
ELSE 


Certain  words,  such  as  statement  key  words,  should  be  redefined 
with  extreme  caution.  If,  for  example,  the  word  A  is  defined,  as  in 
the  statement 

DEFINE  A  TO  MEAN  X 

and  a  DEFINE  statement  such  as  DEFINE  LIST  AS  A  REAL  ARRAY  processed, 
X  will  be  substituted  for  A,  and  will  create  the  incorrect  statement 
DEFINE  LIST  AS  X  REAL  ARRAY. 

2-27  SAMPLE  SIMSCRIPT  II,  LEVEL  2  PROGRAMS 


2-27-1  A  Data  Analysis  Program 

This  program  reads  N  data  Items  x,,x,,...,x  into  a  list.  It 

i  l  n 

then  goss  through  the  list  computing  the  average  of  successive  over¬ 
lapping  sequences  of  observations  *x1+1* • • • *X1+M  {or  . N-l. 

These  moving  averages  are  compared  with  sc  input  tolerance  value,  and 
if  they  are  less  than  this  value,  the  values  of  i,l+M,  and  the  average 
are  printed. 

The  following  problem  Illustrates  the  use  jf  the  RESERVE  statement. 


-125- 


the  READ  etatemsnt  with  a  subscripted  variable,  and  the  uae  of  FOR 
loops  to  control  the  indexing  of  subscripted  variables: 


PREAM8LE  0EF1NE  LIST  AS  A  1 -DIMENSIONAL  ARRAY 
DEFINE  I,J,M  AND  N  AS  INTEGER  VARIABLES 
END 

MAIN  READ  N 

RESERVE  LIST (*)  AS  N  READ  LIST 
READ  TOLERANCE. VALUE 
FOR  M«1  TO  N-l 

FOR  1-1  TO  N-M 
DO 

LET  SUM-0 

FOR  J-0  TO  M,  ADD  LIST(I+J)  TO  SUM 
LET  AVERAGE=SUM/(M+1 ) 

IF  AVERAGE  IS  LESS  THAN  TOLERANCE. VALUE 

PRINT  1  LINE  WITH  I,  I+M  AND  AVERAGE  AS  FOLLOWS 
ITEMS  ***  THROUGH  ***  HAVE  AN  AVERAGE  OF  **.**♦ 
REGARDLESS 

LOOP 

STOP  END 


2-27-2  A  Data  Analysis  'Program 

This  program  repeats  the  computations  of  the  previous  problem, 
but  Instead  of  computing  the  average  of  the  items  x^,,..x^+M  cot-N“ 
putes  the  average  of  a  function  of  the  items  f  (x^) , . . .  f  (x^^) .  As 
the  function  can  vary  for  different  problems,  the  program  for  com¬ 
puting  its  value  is  called  as  a  routine  and  is  not  incorporated  directly 
into  the  data  analysis  program. 

The  program  below  illustrates  how  to  write  and  use  a  routine 
subprogram  as  a  function. 

PREAMBLE  DEFINE  LIST  AS  A  1-DIMENSIONAL  ARRAY 

DEFINE  I,J,M  AND  N  AS  INTEGER  VARIABLES 

DEFINE  VALUE  AS  A  REAL  FUNCTION 

END 

MAIN  READ  N 

RESERVE  LIST (*)  AS  N  READ  LIST 

REAL  TOLERANCE. VALUE 


FOR  M-l  TO  N-1, 

FOR  1-1  TO  N-M, 

DO 

LET  SUM-0 

FOR  J-0  TO  M,  ADO  VALUE  (LIST { I-KJ ) )  TO  SUM 
LET  AVERAGE-SUM/ (M*  i ) 

IF  AVERAGE  IS  LESS  THAN  TOLERANCE. VALUE 

PRINT  1  LINE  WITH  I, KM  AND  AVERAGE  LIKE  THIS 
ITEMS  *♦*  THROUGH  **•  HAVE  AN  AVERAGE  OF  **.*** 
REGARDLESS 

LOOP 

STOP  END 

ROUTINE  FOR  VALUE  GIVEN  VARIABLE 
IF  VARIABLE  IS  LESS  THAN  -1000  RETURN  WITH  -1 
OTHERWISE  IF  VARIABLE  IS  GREATER  THAN  1000  RETURN  WITH  1 
OTHERWISE  RETURN  WITH  VARIABLE/1000 
END 


2-27-3  A  Matrix  Multiplication  Progrm 

Two  matrices  (double-subscripted  variables)  are  punched  on  data 
cards.  Matrix  A  appears  in  the  order  A(l,l),  A(l,2) . ,A(1,M) , 

A(2,l) . ,A(2,M) ,A(3,1) . ,A(N,M) .  Matrix  B  appears  in  the  order 

B(1,1),B(2,1) . B(S,1),B(1,2),...,B(S,2),B(1,3) . B(R,S).  A  is 

punched  row  by  row,  and  B,  column  by  column.  The  values  of  the  matrix 
dimensions  N,M,R,  and  S  precede  the  element  data. 

This  program  reads  the  data  and,  if  possible,  multiplies  the 
matrices  A  and  B  together  to  form  matrix  C. 

For  matrix  multiplication  tc  be  effected,  M  must  equal  R.  The 
rule*  for  computation  are 

if  A  has  dimensions  N,  M  end 

B  has  dimensions  M,  S  then 

C  has  dimensions  N,  S  and  the  elements  of  C  are  computed  as 
M 

C(I,K)  -  [  A(I,J)*1(J,K) 

1-1 


The  program  below  illustrates  the  use  of  the  RESERVE  statement 
with  variable  dimensions  executed  in  the  body  of  a  program,  two  forme 
of  REAC  statement  formats  for  lnputtirg  subscripted  variables,  nested 
FOR  loops,  and  the  use  of  the  LIST  statement. 
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MAIN 

DEFINE  I,J,K,M,N,R  AND  S  AS  INTEGER  VARIABLES 

READ  N,  M,  R  AND  S  IF  M  IS  NOT  EQUAL  TO  R,  PRINT  1  LINE  THUS 

MATRIX  DIMENSIONS  ARE  NOT  EQUAL,  MULTIPLICATION  IMPOSSIBLE 

STOP  ELSE  RESERVE  A(\*)  AS  N  BY  AS  R  BY  S,C{*,*)  AS  N  BY  S 

READ  A  FOR  J»1  TO  S,  TOR  M  TO  R,  RE AO  B(I,J) 

FOR  I«1  TO  N,  FOR  K-1  TO  S,  FOR  J-1  TO  M 
ADD  A(I,J)*B(J,K)  TO  C{I,K) 

LIST  A,  B  -AND  C 
STOP  END 


2-27-4  A  Matrix  Multiplication  Routine 

This  program  presence  the  previous  program  written  ss  s  routine. 
It  returns  a  coded  message  If  multiplication  is  not  possible.  Unlike 
the  foregoing  program,  this  one  does  not  assume  that  the  matrix  C  con¬ 
tains  all  zeros,  and  an  initialization  statement  Is  Incorporated  Into 
the  routine. 

The  problem  below  Illustrates  how  a  routine  le  written  and  used 
as  a  procedure.  It  demons  traces  the  use  of  Input  and  output  argu¬ 
ments  in  such  routines. 

ROUTINE  TO  MATRIX. MULTIPLY  GIVEN  A,B  AND  C.  N.M.R  AND  S 
YIELDING  CODE 

DEFINE  A,  B  AND  C  AC  2-DIMENSIONAL  REAL  ARRAYS 

DEFINE  N,M,R,S,I  ,J,K  AND  CODE  AS  INTEGER  VARIABLES 

IF  M  IS  NOT  EQUAL  TO  R  LET  CODE-O  RETJRN 

OTHERWISE  LET  CODE-1 

FOR  1-1  TO  N,  FOR  K-1  TO  S 
DO  LET  C( I ,K)-0 

FOR  J-1  TO  M,  ADD  A ( I , J ) *B ( J , K )  TO  C(i,K) 

REPEAT 

RETURN  END 


This  routine  m'ght  be  used  In  a  programs  by  calling  on  it  as 

NOW  MATRIX.  MULT!PlY(TABlEl(*.*)tTABLE2{*.*).TABlE3(V),  SI,  HI,  S3.  N4 
YIElDING  FLAG 

If  FLAG  EQUALS  0,  GO  TO  ACTION. 1 
OTHERWISE  LIST  TABLET 
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2-27-5  Definition  and  Uee  of  a  Routine  as  a  Function 

Here,  the  program  defines  a  routine  to  coatpute  the  quantity  H 
defined  as 

2 

M  .  _I_  dL3(l-~)  (3.080  sin  ^  -0.7100  sin  ~  +  0.349  sin 


For  values  d-62.4,  L-10,  and  x*4  the  routine  is  used  to  compute  and 
print  the  quantities 


Q1  -v 

^M2  -  (M-l) 2 

0  if  M  <  m 

Q2  - 

1  if  M  -  m 

2  if  M  >  m 

2 

TT  .2.3 

Q3  ■  864  (1_q^  A 

(l“lf“)  O*080 


0.7100  sin 


2na 


2 


A 


+ 


0.349  sin 


MAIN 

LET  VALUE=M(62. 4,10.0, 4.0) 

PRINT  1  LINE  WITH  SQRT. F( VALUE **2  -  (VALUE-1 )**2)  LIKE  THIS 
THE  VALUE  OF  Q1  IS  *,****** 

LET  Q2=0  READ  SMALL. EM 
IF  VALUE  EQUALS  SMALL. EM,  LET  Q2=l  ELSE 
IF  VALUE  IS  GREATER  THAN  SMALL. EM,  LET  Q2=2  REGARDLESS 
PRINT  1  LINE  WITH  Q2  AS  FOLLOWS 
THE  VALUE  OF  Q2  IS  * 

READ  Q,A  AND  LITTLE. EH 

PRINT  1  LINE  WITH  M((1-Q)**2,A,  LITTLE. EH**2)  THUS 
THE  VALUE  OF  Q3  IS  ***.****** 

STOP  END 


ROUTINE  FOR  M  GIVEN  D,  I.  AND  X 
LET  TEMP=(PI.C  *  X)/L 

RETURN  WITH  (PI ,C**2/864)*(D*L**3)*(1-(2*X)/(3*L) )*{3.08* 
SIN. F(TEMP)  -  0.71*SIN.F(2*TEMP)  +  0. 349*SIN. F( 3*TEMP) ) 
END 


The  routine  and  main  program  illustrate  the  use  of  a  systtj- 
defined  constant  (PI.C),  system-defined  functions  (SIN.F,  SQRT.F), 
and  the  transmission  of  argument  values  to  routines,  and  shows  some 
methods  by  which  temporary  variables  can  be  used  to  make  computations 
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more  efficient.  Notice  that,  as  there  Is  no  preamble,  all  variables 
are  Implicitly  REAL,  and  all  are  local  to  their  respective  routines  — 
the  variables  VALUE,  SMALL. EM,  Q1 ,  Q2,  Q,A  and  L11TLE.EH  are  local  to 
the  main  routine,  and  the  variable  TEMP  is  local  to  the  routine  M. 

2-28  MORE  ON  PROGRAM  FORMATS 

As  described  In  Sec.  1-09,  all  80  card  columns  can  be  used  for 
program  statements.  As  blames  are  ignored  between  words,  a  programmer 
can  design  his  own  program  formats  by  standardizing  the  number  of 
blank  columns  put  before  and  after  statements. 

Since  the  SIMSCRIPT  II  compiler  reads  all  80  columns,  a  control 
statement  limiting  the  number  of  columns  containing  valid  program 
statements  is  if  program  cards  are  to  be  sequence  numbered  or 

otherwise  identified.  If  a  program  cannot  be  restricted  to  the  first 
70  columns e  say,  of  a  card,  error  messages  will  be  produced  each  time 
a  sequence  number  is  read.  Of  course,  comment  cards  can  be  used  to 
delimit  sequence  numbers,  as  in  the  following  example,  but  this  is 
inefficient  in  large  programs. 

ROUTINE  FOR  ANALYSIS  GIVEN  X  YIELDING  Y  "ANAL  0001 

DEFINE  X  AND  Y  AS  REAL  VARIABLES  1 'ANAL  0002 

s 

END 

The  preamble  statement 

LAST  COLUMN  IS  integer  constant 

specifies  that  columns  to  the  right  of  the  indicated  column  do  not 
contain  program  statements.  These  columns  appear  on  all  program 
listings  produced  during  compilation,  but  do  not  enter  into  the  com¬ 
pilation  process.  The  symbol  is  a  synonym  for  the  word  "IS". 

Each  time  a  LAST  COLUMN  card  is  used  in  a  preamble,  the  number  of 
program  statement  columns  may  change.  The  last  LAST  COLUMN  statement 
used  in  a  preamble  applies  to  all  subprograms  that  follow. 

The  simplest  preamble  used  to  specify  sequence  number  columns  is: 
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PREAMBLE 

LAST  COLUMN  IS  72 
END 

This  specifies  that  In  all  succeeding  cards  only  columns  1  through  72 
contain  program  statements.  Columns  73  through  80  are  listed  but 
ignored  during  comp  Hat  ion. 
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Chapter  3 

SIMSCRIPT  II:  LEVEL  3 

3-00  A  STATEMENT  FOR  SIMPLIFYING  NESTED  IF  STATEMENTS 

A  unique  feature  of  one  particular  nested  IF  statement  structure 
Is  that  a  transfer  Is  made  out  of  the  nest  upon  the  failure  of  any 
nested  test.  This  Is  Illustrated  below. 

IF  VALUE (ITEM)  EQUALS  HI, LET  PRI0RITY( ITEM) =1 

IF  TIME. DUE( ITEM)  <  N0W+7.ADD  1  TO  PRIORITY(ITEM) 

IF  WORK. TO. DO (ITEM)  >  LIMIT,  ADD  I  TO  PRIORITY (ITEM) 

ELSE 

ELSE 

ELSE 

The  failure  of  any  test  causes  a  transfer  to  a  matched  ELSE  state¬ 
ment  that  branches  o>.t  of  the  nest.  The  essence  of  the  logic  of  the 
nest  lies  In  the  word  THEN.  If  a  condition  Is  true,  computation  con¬ 
tinues  with  the  next  statement,  THEN  IF  ...,  but  if  any  condition  is 
false,  control  passes  to  its  matching  ELSE  and  out  of  the  nest.  The 
THEN  IF  statement  improves  the  readability  of  nested  IF  statements  by 
eliminating  consecutive  ELSE  statements.  In  programs  containing 
sequences  of  IF  statements,  If  one  or  more  IF  Is  preceded  by  the  word 
THEN,  some  ELSE  statements  can  be  eliminated,  for  when  a  logical  test 
associated  with  a  THEN  IF  phrase  fails,  control  passes  to  the  ELSE 
associated  with  the  previous  IF.  To  illustrate,  the  above  program  is 
rewritten  using  THEN  IF  statements. 

IF  VALUE(ITEM)  EQUALS  HI,  LET  PRI0RITY(ITEM)-1 

THEN  IF  TIME. DUE (ITEM)  <  NOW+7,  ADD  1  TO  PRI0RITY( ITEM) 

THEN  IF  WORK. DUEf ITEM)  >  LIMIT,  ADD  1  TO  PRIORITY ( I TEM) 


ELSE 


The  THEN  IF  statement  Is  only  applicable  to  nested  logical  tests 
in  which  the  false  condition  for  each  test  is  the  same  and  where  fail' 
ure  of  any  test  automatically  transfers  out  of  the  nest.  The  logic 
of  a  sequence  of  nested  THEN  IF  statements  is  shown  in  the  following 
flow  diagram: 


3-01  A  b  FA  TEMEVT  FOP  SIKPLIHING  VESTED  IX)  LOOPS 

FOR  phrases,  with  their  attached  DO  and  REPEAT  loops,  can  also 
be  nested.  Often  two  or  more  FOR  phrases  end  on  the  same  program 
statement,  and  a  series  of  LOOP  or  REPEAT  ststements  sre  needed  to 
close  all  the  "open"  DO's,  as,  for  example,  in 
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FOR  1-1  TO  N,  FOR  K-l  TO  N, 

DO 

LET  C(I,K)-0  LET  D(I,K)«0 
FOR  J-1  TO  N, 

DO 

ADO  A(I,J)*B(J,K)  TO  C(I,K) 

ADO  A( I ,J )**2*B( J ,K)**2  TO  D(I,K) 

LOOP 

LOOP 


Consecutive  LOOP  or  REPEAT  statements  can  be  eliminated  by  using 
the  statement  ALSO  FOR  whenever  consecutive  FOR  loops  terminate  on 
the  same  statement.  When  an  ALSO  FOR  is  used,  SIMSCRIPT  II  automatic¬ 
ally  pairs  the  DO  that  follows,  v4 '  •  the  LOOP  that  matches  the  DO  of 
the  preceding  FOR  statement.  Using  this  statement,  the  above  example 
can  be  written  as 


FOR  I«1  TO  N,  FOR  K»1  TO  N, 

DO  LET  C(I,K),  D(I,K)*0 
ALSO  FOR  J*1  TO  N, 

DO  ADD  A(I,J)*B(J,K)  TO  C(I,K) 

ADO  A(I,J)**2*B(J,K)**2  TO  D(I,K) 

LOOP 


The  following  sequence  of  FOR  and  ALSO  FOR  loops  illustrates  how  DOs 
and  LOOPs  are  matched  when  these  phrases  are  interspersed: 


FOR 
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3-02  SPE  COMPLEX  LOGICAL  EXPRESSIONS 

Section*  1-04  end  2-12  discussed  two  types  of  logical  expressions: 
expressions  that  use  relational  operators  to  compare  two  arithmetic 
expressions,  and  expressions  that  use  the  operators  IS  and  IS  NOT  to 
compare  a  single  arithmetic  expression  or  a  special  name  with  a  speci¬ 
fied  property.  Logical  expressions  formed  according  to  either  of 
these  rules  are  simple  logical  expressions  in  that  they  express  a 
single  logical  relationship. 

Section  1-04  also  showed  that  a  logical  expression  can  be  enclosed 
in  parentheses  without  changing  its  meaning.  Parentheses  bind  an 
expression  as  a  unit  and  have  nc  effect  on  its  evaluation.  All  logical 
expressions  can  be  enclosed  within  parentheses  without  any  change  in 
meaning. 

VALUE  <  LIMIT  is  equivalent  to  (VALUE  <  LIMIT)  and 
SUM  IS  POSITIVE  is  equivalent  to  (SUM  IS  POSITIVE) 

A  logical  expression  can  be  negated  by  following  it  with  the 
phrase  IS  FALSE,  as  in  the  logical  expression 

VALUE  <  LIMIT  IS  FALSE 

The  IS  FALSE  phrase  serves  a  wider  purpose  than  the  mere  Improvement 
of  readability  —  it  can  be  used  to  state  a  desired  condition  without 
forcing  an  unnatural  transposition  of  logic.  For  example,  a  test  can 
be  written  as 

IF  QUANTITY  >  INVENTORY  GO  TO  ORDER  ELSE  or  as 
IF  QUANTITY  <_  INVENTORY  IS  FALSE  GO  TO  ORDER  ELSE 

with  equal  effect.  For  symmetry,  the  phrase  IS  TRUE  is  permitted. 

The  form  selected  depends  on  how  a  programmer  wants  a  logical  expres¬ 
sion  to  appear  to  a  reader. 

Simple  logical  expression?  containing  arithmetic  expressions  and 
relational  operators  can  be  assembled  together  to  form  compound  logioal 
expression*.  Using  e  to  represent  an  arithmetic  expression  and  R  to 
represent  a  relational  operator,  a  compound  logical  expression  can  be 
written  as 


Fora 


Example 


eRe  J  1  <  X 

e  R  e  R  e  |  1  <  X  <  N 

e  R  e  R  e  R  e  I  1  <  X  <  N  «  SUM 

eReReReRe  R  1  <  X  <  N  -  SUM  IS  GREATER  THAN  5 

In  each  of  theae  caaes  all  of  the  expreaaed  logical  relatlonahlpa  must 
be  true  In  order  that  the  compound  expreaalon  be  true.  For  example, 
in  the  second  illustration,  X  must  be  greater  than  1  and  leas  than  N. 
The  notation  used  is  actually  a  shorthand  method  of  writing  '!  <  X  and 
X  <  N. 

Simple  logical  expressions  can  also  be  combined  to  form  compound 
logical  expressions  by  explicitly  using  the  logical  operators  AND*  or 
OR.  If  and  e2  are  logical  expressions,  then 

e-j  AND  e2  is  true  if  both  ei  and  are  true 

e-|  OR  e?  is  true  if  either  or  e2  or  both  e.j  and  are  true 

Compound  logical  expressions  can  contain  more  than  two  simple  logical 
expressions,  as  in  the  logical  expression 

e1  AND  e2  OR  AND 

When  more  than  two  simple  logical  expressions  appear  in  an  unparen¬ 
thesized  compound  logical  expression  with  the  operators  AND  and  OR, 
the  operator  AND  is  evaluated  first.  Parentheses  can  be  used,  how¬ 
ever,  to  indicate  a  specific  order  of  evaluation.  In  the  absence  of 
parentheses,  the  above  expression  is  evaluated  by  convention  as  though 
it  had  been  written 

(a)  (e1  ANO  e2)  OR  (e3  AND  e4) 

If  a  program  requires  seme  other  logic,  the  statement  can  be  written  as 
(M  e1  AND  («2  OR  e3)  AND  «4 

which  means  something  quite  different.  Version  (a)  is  true  either  if 
both  and  ar*  true  or  if  both  @3  and  «4  are  true.  Version  (b) 
is  true  if  is  true  and  «4  is  true,  and  either  e 2  or  *3  1*  true. 

*In  this  context,  a  comma  cannot  be  substituted  for  the  word 

AND. 
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Compound  logical  expressions  can  be  used  with  IS  FALSE  and  IS 
TRUE  phrases.  An  IS  FALSE  or  IS  TRUE  phrase  always  applies  to  the 
logical  expression  preceding  it.  If  this  logical  expression  is  com¬ 
pound,  it  must  he  enclosed  in  parentheses,  e.g.,  the  logical  expression 

e]  IS  FALSE  AND  (e2  OR  e3)  IS  TRUE 

A  few  simple  rules  that  govern  the  writing  and  evaluation  of 
logical  expressions  ars  given  below: 

(a)  A  logical  expression  enclosed  in  parentheses  remains  a 
logical  expression. 

(b)  In  the  absence  of  parentheses,  AND  is  evaluated  before  OR, 
that  is,  from  left  to  right  across  an  expression,  successive 
logical  expressions  are  used  as  operands  of  AND  operators, 
and  these  evaluated  expressions  are  then  used  aa  operands 

of  OR  operators.  Parentheses  can  always  be  used  to  indicate 
specific  operator  hierarchies. 

(c)  IS  TRUE  and  IS  FALSE  phraies  cpply  to  logical  expressions 
preceding  them.  If  such  a  logical  expression  is  compound, 
it  must  be  enclosed  in  parentheses;  otherwise  the  phrase 
only  applies  to  the  expression  adjacent  to  it. 

Some  examples  that  illustrate  the  writing  and  evaluation  of  "om- 
plex  logical  expressions  a^e  given  below.  In  these  examples,  the 
variables  I,J,K.L,M,  and  N  are  positive  numbers,  the  variables  Q,R,S, 
and  T  are  negative  numbers,  and  the  variable  Z  is  rero. 

(a)  I  EQUALS  J  is  true  or  false  depending  on  the  values  I , J 

(b'  I  EQUALS  Q  la  always  false 

(;)  H+-N  IS  POSITIVE  is  always  true 

(d)  M+T  IS  POSITIVE  is  rrue  or  false  depending  on  the  values  M,T 

(a)  I  >  0  AND  J  •»  0  is  always  true 

(f)  I  »  0  OR  R  >  0  is  always  true 

(g)  I  E  J  AND  Z  *  0  Is  true  if  I  equals  J,  is  false  otherwise 

(h)  I  ■  J  OR  Z  *  0  Is  always  true 

(1)  I  *  J  AND  K  >  N  AND  R  ■  S  is  true  if  all  three  conditions  are 

true  and  false  otherwise;  it  is 
evaluated  as  ((I  *  J)AND(K  >  N)  AND 
(R  -  S)) 

is  true  if  any  one  of  the  three  con¬ 
ditions  Is  true;  it  is  false  only 

if  a  are  fas.se 


(j)  * 


N  OR  R  ’  S 
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(k)  I  *  J  AND  K  >  N  OR  R  *  S  la  true  If  either  of  the  two  conditions 

around  the  OR  is  true;  it  is  evaluated 
as  (I  ■  J  AND  K  >  N)  OR  (R  •  S) 

(l)  2  IS  ZERO  AND  (I  <  0  OR  S  <  0)  AND  Q  »  T  is  true  only  if  Q  «  T 

(m)  Z  IS  ZERO  AND  (I  >  0  OR  S  <  0)  ANO  Q  -  T  is  true  if  Q  -  T 

(n)  J  <  K  AND  (I  ■  Q  OR  S  <  0)  AND  J  ♦  K  <  I  is  true  if  J  <  K  and 

J  ♦  K  <  I 

When  a  statement  containing  a  compound  logical  expression  is  ex¬ 
ecuted,  it  does  not  always  follow  that  all  logical  conditions  in  the 
statement  are  examined.  For  example,  in  the  statement 

IF  X  >  Y**2  AND  COUNT  >  N,  ADD  ...  ELSE 

both  logical  expressions  have  to  be  true  for  the  ADD  statement  to  be 
executed.  If  the  first  logical  expression  (X  >  Y**2)  is  false,  there 
is  no  need  to  evaluate  the  second  (COUNT  >  N),  as  the  compound  logical 
expression  X  >  Y**2  AND  COUNT  >  N  can  never  be  true  regardless  of  the 
values  of  COUNT  and  N.  In  normal  circumstances,  the  fact  that  all 
parts  cf  a  compound  logical  expression  may  not  be  evaluated  each  time 
will  cause  no  undue  difficulty.  It  can  cause  problems  if  a  programmer 
usea  a  function  in  a  logical  expression  and  expects  an  evaluation 
each  time.  As  this  evaluation  may  not  always  be  performed,  it  is  a  good 
rule  not  to  use  functions  in  the  above  manner  if  they  have  side  effects. 

S-OJ  LOGICAL  CONTROL  PHRASES 

A  logical  control  phrase  contains  a  logical  expression  and  a 
logical  control  operator,  and  la  ordinarily  used  in  connection  with 
a  FOR  statement.  The  logical  control  phrase*  are 

WITH  logical  expression 
UNLESS  logical  expression 
WHILE  logical  express’ll.  and 
UNTIL  logical  expression 

A  WITH  phrase  uodifles  the  sequence  of  values  that  pass  from  a 
FOR  phrase  to  the  statements  that  it  controls.  Its  logical  expression 
is  tested  each  time  a  new  value  of  the  ^0R  phrase  conirol  variable  is 
generated,  and  if  the  expression  is  false  the  control  variable  value 
is  skipped.  This  effectively  passes  control  around  theae  atatt^enta 
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for  a  aelected  act  of  control  variable  valuea.  The  phrase  la  uaeful 
for  screening  valuea  before  they  paaa  into  FOR-phraae-con trolled  state¬ 
ments.  An  example  of  the  uae  of  a  WITH  phraae  1* 

FOR  I  •  1  TO  N,  WITH  X(I)  LESS  THAN  CUT. OFF 
00  LET  BID(I)  -  PRICE  ♦  PROPORTION(PRICE) 

ADO  1  TO  NUMBER. OF. 8  IDS 

LOOP 


In  thla  example  the  WITH  phraae  acreena  out  thoae  valuea  of  I  between 
1  and  N  for  which  the  logical  expresalon  X(I)  <  CUT. OFF  la  false.  The 
program  perforae  u  if  it  had  been  written  as 

FOR  I  •  1  TO  N,  00 

IF  X(I)  >  CUT. OFF  00  TO  LOOP 

ELSE  Lft  BI0(i)  -  PRICE  +  PROPORTION  (PRICE) 

ADD  1  TO  NUWER.0F.8IDS 
'LOOP'  LOOP 


The  word  WHEN  can  be  used  as  a  synonym  for  WITH.  The  word  UNLESS 
end  the  phraae  EXCEPT  WHEN  can  be  used  to  show  that  the  items  passing 
the  indicated  teat  are  screened  from  the  loop,  rather  than  accepted, 
aa  In  the  program 

FOR  I  ■  1  TO  N,  EXCEPT  WHEN  X(I)  <  CUT. OFF 

DO  LET  BID(I)  -  PRICE  ♦  PROPORTION  (PRICE) 

ADO  1  TO  NUHJER.OF.BIDS 

LOOP 

A  WHILE  phraae  allows  a  FOR  to  direct  the  sequence  of  program 
control  a a  long  as  a  certain  logical  expression  la  crue.  Its  logical 
expression  Is  reevaluated  each  time  the  FOR  phrase  changes  the  value 
of  its  control  variable.  Thus,  the  program 

TOR  I  -  1  TO  N,  WHILE  X(J)  LESS  THAN  CUT. OFF 

00  LET  810(1)  »  PRICE  ♦  PROPORTION  (PRICE) 

ADO  1  TO  NUWER.0F.BID5 

LOOP 

terminate#  the  loop  aa  aoon  as  a  value  of  l(l)  le  greater  than  or 
equal  to  CUT. OFF.  The  program  performs  aa  If  It  had  been  written  aa 

FOR  I  •  1  TO  N. 

DO  IF  X(I)  ‘  CUT  OFF  GO  TO  NEXT 

ELSE  ItT  BI0(I)  •  PRICE  ♦  PROPORTION  (PRICE) 

ADO  1  TO  NIWER.9f.BIDS 

LOOP 

'NEXT' 
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Aa  UNTIL  phraar  allow*  a  FOR  to  direct  tha  sequence  of  p-ograo 
control  aa  long  aa  a  cartaln  logical  expression  la  not  crua.  It  haa 
tha  acme  affact  aa  a  WHILE  phraae  that  haa  an  IS  FALSE  phraa*  put 
afcar  lta  logical  control  axpraaalon.  The  program 

FOR  I  -  1  TO  N,  UNTIL  X(I)  >  CUT. OFF 

DO  LET  BID(I)  -  PRICE”*  PROPORTION  (PRICE) 

ADO  1  TO  NUMBER. OF. BIDS 

LOOP 

performs  exactly  Ilka  the  previous  prograa. 

WITH,  UNLESS,  WHILE,  and  l^TIL  phraaea  can  be  attached  to  naatad 
FOR  atatenanta.  Whan  thle  la  done,  each  WITH  or  UNLESS  phraae  applies 
co  the  FOR  atataaant  Immediately  preceding  it,  and  each  WHILE  or  UNTI1 
phraae  appllaa  to  all  preceding  FOR  phraaea.  The  following  program 
illuatrataa  this: 

FOR  DELTA-  1  TO  100  BY  0.5, 

FOR  Q  »  DT(l)  TO  DT(2)  BY  DELTA, 

WHILE(FN(Q)  -  FN(0T(1)))/(Q  -  DT(1))  >  0, 

FOR  V  »  -Q  TO  Q  BY  STEP.  WITH  GN(V)  >  MIN 

DO 

A 00  GN(Y)  TO  SUM 

ADO  1  TO  NUMBER. Or. SEGMENTS 

LOOP 

'NEXT' 

The  outer  FOR  phraaea  atep  the  variable*  DELTA  and  Q  through  a  sequence 
of  values  aa  long  aa  the  logical  expreaaion  in  tha  WHILE  phraae  la 
true,  k  false  condition  ends  the  FOR  phraae  control  by  transferring 
to  'NEXT*.  Each  time  the  variables  »re  stepped  and  the  logical  expres¬ 
sion  la  true,  the  inne.  FQR  step*  the  variable  V  through  a  sequence 
of  values.  Only  those  values  in  the  sequence,  however,  for  which  the 
logical  expression  in  the  WITH  phraae  is  true  are  passed  on  to  the 
statements  In  the  DO  loop. 

Sequence*  of  WITH,  UNLESS,  WILE,  and  UNTIL  phraaea  can  be  atteched 
to  FOR  phrases  In  any  combination,  Hor*  than  one  of  each  type  ct  phrase 
la  permitted. 

UiTIL  and  WILE  statement*  can  also  ba  u*#--!  independently.  When 
uaed  thla  way,  the  variables  appearing  within  their  logical  expreaaion* 
do  not  come  from  a  FOR  phraae  iteration,  but  from  computation*  perform* 
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within  their  range.  The  range  of  an  independent  logical  control 
phrase,  like  the  range  of  a  FOR  phrase,  is  delimited  by  DO  and  LOOP 
or  REPEAT  statements.  The  following  example  illustrates  the  use  of 
an  Independent  WHILE  statement,  in  a  program: 

WHILE  NUMBER.OF. SEATS  IS  NOT  ZERO, 

DO  READ  PASSENGER 

PERFORM  TICKETING(PASSENGER) 

ADD  FARE  TO  SUM 

LOOP 

In  this  example,  the  value  of  the  global  variable  NUMBER.OF. SEATS  is 
assumed  to  be  changed  in  the  routine  TICKETING.  As  long  as  NUMBER.OF. 
SEATS  is  positive,  control  is  passed  to  the  READ  statement  after  the 
LOOP  statement  has  transferred  back  to  the  WHILE  in  expectation  of 
another  iteration.  When  NUMBER. OF. SEATS  becomes  zero,  the  WHILE  state¬ 
ment  transfers  to  the  statement  following  LOOP. 

WHILE  and  UNTIL  statements  can  be  modified  by  WITH  and  UNLESS 
phrases,  and  may  be  nested  with  other  independent  WHILE  and  UNTIL 
statements  and  with  FOR  phrases.  When  nested  WHILE  and  UNTIL  state¬ 
ments  end  on  the  same  LOOP  statement,  the  phrases  ALSO  WHILE  and  ALSO 
UNTIL  can  be  used  to  eliminate  the  redundant  LOOP. 

Since  there  is  no  automatic  termination  of  an  independent  WHILE 
or  UNTIL  phrase  as  there  is  with  a  FOR  phrase,  a  programmer  must  be 
careful  not  to  program  a  nor.terminating  loop,  as  in  the  following 
program  segment: 

WHILE  I  IS  GREATER  THAN  J, 

DO  READ  X 

ADD  X  TO  SUM 

LOOP 

This  loop  is  not  terminal,  as  the  values  of  I  and  J  are  not  affected 
by  the  loop, 

3-04  RETURNING  ROUTINES  TO  FREE  STORAGE 

The  RELEASE  statement  can  also  be  used  to  return  space  occupied 
by  routines  to  free  storage.  Used  in  conjunction  with  the  release  of 
arrays,  this  provides  a  powerful  facility  for  fitting  large  programs 
into  core,  A  routine  is  released  by  using  its  name  in  a  RELEASE  state¬ 
ment  ,  as  in 


RELEASE  START,  INTERRUPT,  AND  ALLOCATE 

Routine*  and  array  names  can  be  used  in  Che  same  RELEASE  statement. 

The  general  form  of  the  RELEASE  statement  is 

RELEASE  array  pointer  and  routine  name  list 

Each  routine  must  be  declared  as  RELEASABLE**  t-  v*  eligible  for 
use  in  a  RELEASE  statement.  This  is  done  in  the  preamble,  and  must 
be  done  individually  for  routines  by  prefacing  the  word  ROUTINE  or 
ROUTINES  in  a  DEFINE  statement  with  the  word  RELEASABLE,  as  in  the 
statements 

DEFINE  START  AND  MONITOR  AS  RELEASABLE  ROUTINES 

DEFINE  INITIALIZE  AS  A  RELEASABLE  ROUTINE  and 

DEFINE  RTN  AS  A  RELEASABLE  ROUTINE  WITH  3  ARGUMENTS,  YIELDING  1  VALUE 

As  an  exa  ■pie  of  the  use  of  the  RELEASE  statement,  consider  the 
program  below.  The  routine  START  is  called  to  initialize  global  vari¬ 
ables;  after  this  is  done  it  returns  to  the  main  program  and  is  never 
called  again.  As  the  program  is  very  large,  the  scheme  described  is 
employed  in  order  to  use  the  space  taken  by  the  routine  START  for 
an  array  called  MATRIX. 


program 

preamble 


main 

routine 


PREAMBLE 

DEFINE  START  AS  A  RELEASABLE  ROUTINE 
NORMALLY,  MODE  IS  REAL 
et  cetera 
END 

MAIN 

PERFORM  START  RELEASE  START 
RESERVE  MATRIX (*,*)  AS  N  BY  N 
other  computations 
END 


other 

routines 


ROUTINE  START 

computations 
RETURN  END 


other  routines  of  the  program 


except  for  in-line  functions  (see  Table  2-4). 

+  + 

This  may  not  be  necessary  in  some  SIMSCRIPT  II  implementations. 
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3-05  EXTERNAL  STORAGE  AND  RETRIEVAL  OF  ROUTINES 

Programs  that  exceed  computer  capacity  can  be  run  if  there  is  a 
facility  for  atorlng  parts  of  programs  on  external  storage  devices 
such  as  drums,  disks,  and  magnetic  tapes,  and  reading  them  back  into 
core  storage  when  they  are  needed.  For  various  reasons,  it  is  impos¬ 
sible  to  design  statements  that  provide  such  facilities  independent 
of  computer  operating  systems,  i.e,,  as  part  of  a  machine-independent 
programming  language.  The  task  of  this  section  is  not  to  specify 
statements  for  the  storage  and  retrieval  of  routines,  but  to  describe 
ways  in  which  this  can  be  done;  to  discuss  the  effect  of  different 
schemes  on  SIMSCRIPT  II  programs;  to  suggest  what  seem  to  be  useful 
statement  forms;  and  to  provide  guidelines  for  particular  implementa¬ 
tions  of  storage  and  retrieval  statements  on  a  variety  of  computers. 

Two  general  methods  are  available  for  executing  large  programs: 
program  overlay  and  dynamic  program  relocation. 

3-05-1  Program  Overlay 

The  eaaier  of  the  two  program  storage  and  retrieval  schemes  pre¬ 
sented  Involves  the  partitioning  of  a  program  into  overlay  eectione , 
with  each  section  containing  one  or  more  routines.  If  the  partitioning 
is  done  well  (and  if  a  program  permits  it  to  be  done  well),  a  program 
can  be  executed  by  sequentially  bringing  overlay  sections  into  core 
on  top  of  one  another.  If  routines  within  particular  sections  only 
call  on  routines  in  the  same  section  or  on  routines  permanently  located 
in  coze,  this  method  is  efficient.  On  the  other  hand,  if  routines  call 
upon  routines  in  other  sections,  time  is  spent  replacing  these  sections 
in  core  so  that  the  routinas  may  be  loaded  and  executed.  Overlay  is 
an  efficient  technique  for  sequentially  designed  programs;  its  effi¬ 
ciency  decreaaea  a a  the  Interaction  between  overlay  sections  .acreaaes. 

There  are  several  vays  in  which  overlay  can  be  implemented.  All 
involve  keeping  a  copy  of  each  overlay  section  on  an  external  medium 
and  loading  it  into  a  fixed  overlay  area  when  the  section  is  needed. 
Since  the  seme  copy  is  loaded  each  time  a  section  is  overlayed,  it  is 
impossible  to  transmit  values  of  SAVED  local  variables  between  overlays. 
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When  a  section  is  overlayed,  all  the  SAVED  local  variables  In  the 
section's  routines  are  reset  to  zero.  Care  must  be  exercised  In 
using  SAVED  local  variables  with  an  overlay  feature. 

The  overlay  of  an  overlay  section  can  be  Invoked  by  a  special 
statement  such  as 

LOAD  overlay  section  name 

or  It  can  be  Invoked  automatically,  by  the  use  of  a  routine  name  within 
an  overlay  section  somewhere  in  a  program.  Operating  systems  having 
an  automatic  overlay  feature  keep  track  of  the  location  of  all  routines 
at  all  times,  and  bring  overlay  sections  into  core  if  routines  within 
them  but  not  In  core  are  called.  Routines  are  generally  located  within 
named  overlay  sections  by  control  cards  placed  in  a  program  card  deck. 
In  some  Implementations,  howevei,  program  preamble  statements  may  have 
to  explicitly  make  such  correspondences,  such  as  the  statement  form 

OVERLAY  SECTION  name  CONTAINS  ROUTINES  routine  none  liet 

3-05-2  Dynanic  Program  Relocation 

A  more  general  program  storage  and  retrieval  scheme  allows  indi¬ 
vidual  routines  to  be  removed  from  core  and  restored  at  a  later  time, 
perhaps  in  a  different  place.  While  providing  a  greater  amount  of 
flexibility  than  does  program  overlay,  such  a  scheme  involves  more 
effort  to  make  it  efficacious.  Some  computers,  because  of  their 
internal  design,  may  not  even  be  able  to  Implement  the  feature.  As 
with  overlay,  two  implementation  methods  are  available:  automatic 
relocation  control,  and  explicit  dynamic  program  control. 

As  pointed  out  above,  with  automatic  overlay  the  mention  of  a 
routine  in  a  program  causes  it  to  be  loaded  into  core  if  it  is  not 
already  there.  Automatic  relocation  control  differs  from  this  pro¬ 
cedure  in  that  a  relocatable  routine  reed  not  always  be  placed  in 
the  same  core  locations. 

Under  explicit  dynamic  program  relocation,  a  program  is  renoved 
from  core  and  saved  on  some  extern* 1  medium  by  s  statement  of  the 
form 


SAVE  routine  norm 
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Execution  of  this  statement  both  copies  a  routine  and  releases  its 
memory  space.  Loading  of  the  routine  at  a  later  time  can  be  done  in 
either  of  two  ways:  automatically,  when  the  routine  is  called,  or 
through  a  special  statement.  If  loading  la  done  automatically,  several 
things  are  needed:  the  routine  must  be  declared  as  dynamic  in  the 
program  preamble  by  a  statement  such  as 

DEFINE  routine  name  AS  A  DYNAMIC  ROUTINE 

so  that  appropriate  flags  and  loading  routines  can  be  created;  a 
special  version  of  the  CALL  statement  must  be  provided  to  load  a 
missing  routine  before  calling  it  if  it  is  not  in  core;  and  an  out- 
of-room  error  routine  oust  be  written  to  take  care  of  situations 
where  there  is  insufficient  room  to  load  a  routine.  Since  there  is 
no  special  program  loading  area  as  there  is  with  overlay,  it  is  pos¬ 
sible  that  conflicts  for  core  space  may  occur.  Unless  the  system  has 
instructions  as  to  which  routines  it  should  save  when  such  conflicts 
occur,  it  can  do  nothing  but  terminate  a  program. 

If  loading  is  done  by  programmer  instruction,  things  are  simpler. 
Statements  of  the  form 

IF  routine  name  IS  LOADED  and 

IF  routine  name  IS  NOT  LOADED 

can  test  to  see  if  a  routine  must  be  loaded  before  it  la  called,  and 
can  be  used  to  release  other  routines,  thus  allowing  room  for  a  new 
routine.  A  statement  such  as 

LOAD  routine  none 

can  then  be  used  to  load  the  routine  into  core  so  that  it  can  be 
executed. 

If  dynamic  program  relocation  facilities  are  available,  they 
greatly  enhance  a  prograsmer's  capabilities  by  providing  unlimited 
memory  capacity  for  program  storage.  As  with  program  overlay,  SIN- 
SCRIPT  II  implementation  manuals  must  be  examined  to  see  what  particu¬ 
lar  features  specific  computer  implementations  provide. 
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3-06  A  SEARCH  STATEMENT 

In  certain  types  of  prograaa  a  great  deal  of  effort  la  devoted 
to  finding  aeta  of  variables  that  satisfy  stated  conditions  and  com- 
putlng  functions  of  these  variables.  The  FIND  statement  is  used  to 
search  for  the  first  of  a  set  of  variable  values  that  satisfies  some 
logical  conditions.  The  atateaent 

FOR  I  -  1  TO  N,  WITH  X(I)*Y(I)  >  LIMIT,  FIND  FIRST.PAIR-THE  FIRST  I 
IF  NONE  GO  TO  NO. PAIRS  ELSE  ... 

is  a  compound  statement  composed  of  a  qualified  FOR  rhraae  and  a  FIND 
statement.  The  FOR  phrase  steps  the  variable  !  through  the  sequence 
of  values  1,2,...,N,  looking  for  values  for  which  X(r)#Y(I)  ia  greater 
than  LIMIT.  The  FIND  statement  selects  the  first  value  of  I  in  this 
sequence.  The  FIND  statement  further  specifies  that  if  no  I  satisfies 
the  "WITH  test,"  the  program  branches  to  the  label  NO. PAIRS;  otherwise, 
it  continues  in  sequence  after  the  ELSE  statement  with  the  variable 
FIRST. PAIR  equal  to  the  first  value  of  I  for  which  the  test  is  true. 

The  above  coaqjound  statement  la  equivalent  to  the  program 

FOR  I  «  1  TO  N, 

DO 

IF  X( I)*Y(I)  IS  GREATER  THAN  LIMIT, LtT  FIRST. PAIR-I  GO  OUT 
OTHERWISE 

LOOP 

GO  TO  NO. PAIRS 

'OUT' 

A  FIND  statement  is  always  controlled  by  a  FOR  phrase,  and  can  option¬ 
ally  have  an  IF  clause  following  it  to  direct  the  flow  of  control  baaed 
on  the  outcome  of  the  "find."  This  clause  can  be  either 

IF  NONE  statement*  ELSE  or 

IF  FOUND  statement*  ELSE 

If  an  IF  NONE  clause  is  used,  the  statements  following  it  are  executed 
if  the  find  iu  unsuccessful;  if  an  IF  FClWO  clause  is  used,  the  state¬ 
ments  are  executed  if  the  find  is  successful.  In  borh  cases  control 
passes  to  the  ELSE  statement  if  the  IF  condition  is  nrt  met,  l.e., 

FOUND  or  not  FOiJNO.  i 

The  words  THE  and  FIRST  are  optional  after  the  equals  sign  at  the  i 

i 
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head  of  the  FIND  statement,  e.g.,  the  statements 

FIND  MAXI  ■  THE  FIRST  I 
FIND  MAXI  -  FIRST  I 
FIND  MAXI  -  I 

ere  equivalent  end  illustrate  alternate  forns  of  the  basic  FIND  statement 

FIND  variable  -  arithmetic  expression 

If  e  variable  named  FIRST  is  used  in  e  FIND  stateatent,  the  optional 
word  FIRST  aust  also  be  used  to  make  the  statement  unambiguous. 

Usually,  the  control  variable  in  the  FOR  phrase  will  appear  in  the 
expression.^  When  the  first  index  value  is  found  for  which  the 
logical  expression  in  the  FOR  phrase  la  true,  the  arithmetic  expres¬ 
sion  is  evaluated  and  its  value  aaslgned  to  the  FIND  statement  vari¬ 
able,  which  may  be  subscripted.  Thus,  in  the  above  example,  the  value 
of  the  expreaslon  I  is  asalgued  to  the  variable  FIRST. PAIR  whan  a 
value  of  I  is  found  for  which  X(I)*Y(I)  is  greater  than  LIMIT. 

If  the  last,  rather  then  the  flrat,  value  must  be  found,  a  back¬ 
ward  iterating  FOR  phraae  is  used.  To  find  the  last  value  of  I  for 
which  X(I)*Y(I)  Is  greater  than  LIMIT,  write 

FOR  I  BACK  FROM  N  TO  1,  WITH  X{I)*Y(I)  GREATER  THAN  LIMIT, 

FIND  LAST. PAIR  -  I  IF  NONE,  GO  TO  NO. PAIRS  ELSE 

This  statement  la  equivalent  to  the  program 

FOR  I  BACK  FROM  N  TO  1 , 

DO 

IF  X(I )*Y( I )  IS  GREATER  THAN  LIMIT, 

LET  LAST. PAIR  -  I  GO  OUT 
OTHERWISE 

LOOP  GO  TO  NO. PAIRS 
•OUT* 

More  then  one  FOR  phrase  can  be  used  to  control  e  FIND  eteteawnt. 
When  this  la  done,  the  FINO  stetement  Is  usually  written  with  a  list 
of  variable  -  arithmetic  expression  phrases,  as  int 


*  1 1  might  not  appear  if  the  arithmetic  expression  contains  a 
function  whose  implied  arguments  are  global  variables. 
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FOR  I  ■  1  TO  N,  FOR  J  »  1  TO  M  WITH  FN(I)  <  KN(J) 

FIND  FS( 1 )  •  THE  FIRST  I  AND  FS(2)  -  THE  FIRST  J 
IF  FOUND  GO  TO  LABEL(I)  OTHERWISE... 

In  cum  where  there  le  no  expression  to  compute,  e  special  fora 
of  the  FIND  eteteaent  can  be  used.  Thia  fora  —  FIND  THE  FIRST  CASE  — • 
inhibit*  the  generation  of  a  LET  etateaent  to  aaeign  the  value  of  the 
"found  expression"  to  the  "FIND  variable."  Both  of  the  following  two 
atateaente  terminate  with  the  eaae  value  of  I: 

(a)  FOR  1-1  TO  MAX,  WITH  V(I)<QQ(I)  ,  FIND  THE  FIRST  CASE 

(b)  FOR  1-1  TO  MAX,  WITH  V(I)<QQ(I)  ,  FIND  I -THE  FIRST  I 

3-07  A  STATEMENT  FOR  COMPUTING  SOME  STANDARD 
FUNCTIONS  OF  VARIABLES 

Computer  output*  often  take  the  fora  of  etatlatlc*  summarising 
the  behavior  of  a  prograa.  The  number  of  ealee  aade  In  a  particular 
week  1*  a  etatlstic  that  deacrlbea  the  activity  in  a  etore,  while 
another  etatlatlc  le  the  value  of  the  average  eale.  When  information, 
auch  ae  aalaa  receipt*  or  Item  Invoice*,  la  etorad  in  array* ,  or  can 
be  computed  by  Iterating  through  expressions,  the  COMPUTE  etateaent 
almpllfle*  the  taak  of  coapiling  descriptive  statistic*. 

An  example  of  the  use  of  a  COMPUTE  statement  is: 

FOR  I  -  1  TO  N,  UNTIL  X( I)  >  17 

COMPUTE  MEANX  -  MEAN, AND  MAXIMUMX  -  MAXIMUM  OF  X(I) 

Like  the  FIND  statement,  the  COMPUTE  statement  contains  a  list 
of  variables  that  are  set  to  a  computed  value  after  Iteration.  In 
this  case  the  value*  are  specified  by  statistical  names,  such  as 
MEAN  and  MAXIMUM.  In  the  above  example  the  logical  control  phrase 
could  have  selected  the  individual  elements  accessed  by  the  loop  if 
the  statement  were  written  as 

FOR  I  •  I  TO  N.  WITH  X(I)  >0  C0rt>UTE  MEANX  -  ME AN, MAXIMUM!  -  MAXIMUM 
OF  X(I) 

A  COMPUTE  statement  has  the  general  form: 

CO^UTE  occiputs  list  OF  xrithmstia  expression 
where  eevyuts  list  is  a  list  of  variable  and  statis’leal  names  of  the 
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form  " variable  »  statistic  name The  optional  word  THE  can  be  put 
before  each  atatistic  name,  and  the  word  AS  can  be  uaed  in  lieu  of 
the  equal  sign.  A  COMPUTE  statement  can  be  controlled  by  more  than 
one  FOR  phrase,  as  in  the  statement 

FOR  A  *  1  TO  N,  FOR  B  -  1  TO  M,  COMPUTE  MN  AS  THE  MEAN  OF  TABLE(A,B)*LIST(B) 

An  optional  logical  control  phrase  appended  to  a  FOR  statement 
controls  the  iteration  sequence  or  the  selection  of  individual  variables, 
as  shown  in  the  above  examples. 

When  a  COMPUTE  statement  appears  within  a  00  loop  with  other  state¬ 
ments,  calculation  of  computed  statistics,  such  as  MEAN,  takes  place 
at  the  first  LOOP  encountered.  If,  for  some  reason,  control  is  trans¬ 
ferred  cut  of  the  loop,  the  statistics  are  undefined. 

In  the  following  example,  computation  of  the  indicated  statistics 
is  executed  at  the  close  of  the  first  00  loop.  Within  the  "J"  loop 
the  values  of  X(J)  ere  summed,  end  a  count  accumulated  of  the  number 
of  X ( J )  that  go  into  the  sum.  Before  statement^  is  executed,  these 
two  values  are  uaed  to  compute  MEANX. 

FOR  I  -  1  TO  N.  DO 

statement^ 

FOR  J  *  1  TO  M,  00 
statement ^ 

COMPUTE  MEANX  AS  THE  MEAN  OF  X(J) 
statement^ 

LOOP 

statement . 

LOOP 

MEANX  is  undefined  within  the  J  loop. 

To  have  e  COMPUTE  statement  controlled  by  several  control  phraaes, 
a  program  la  written  with  ALSO  phraaaa,  as: 

FOR  I  -  1  TO  N,  DO 

statement  ^ 

ALSO  FOR  J  •  1  TO  M,  DO 
statement., 

e> 

COMPUTE  SUMX  AS  THE  SI*  AND  >#XX  AS  THE  WXINUH  OF  1(1, J) 

statement  ^ 

LOOP 


The  nones  thst  aay  appear  In  Che  scatlstlcal  list,  and  their 
coaputadona ,  are  shmm  In  Table  1-1. 


Table  3-1 

STATISTICAL  NAMES  USED  IN  THE  COMPUTE  STATEMENT 


Scadscic 

Alternative  or 
Abbreviation 

Coaputation 

NUMBER 

NUM 

Number  of  lteaa  aelected  In  the 
Iteration 

SUM 

Sum  of  the  aelected  velues  of  the 
expression 

MEAN 

AVERAGE,  AVG 

SUM/NUMBER 

SUM. OF. SQUARES 

SSQ 

Sua  of  squares  of  the  selected  veluee 
of  the  expression 

MEAN.  SQUARE 

MSQ 

SUM. OF. SQUARES/NUMBER 

VARIANCE 

VAR 

MEAN. SQUARE  -  MEAN 

STD. DEV 

STD 

SQRT.F( VARIANCE) 

MAXIMUM 

MAX 

Mexiaua  value  of  the  selected  values 
of  the  expression 

MINIMUM 

MIN 

Minimum  value  of  the  selected  values 
of  the  expression 

MAXIMUM(e) 

MAXle) 

Value  of  coaputed  e  using  the  control 
variable  velues  that  produce  the 
expression  with  the  MAXIMUM  value 

MINlHUM(e) 

MIN(e, 

i 

Same  as  MAX(e)  but  for  miniaua 

The  following  example  Illustrates  the  use  of  esch  of  these  statistics 
(assume  that  an  array  X  In  a  program  has  element  values  as  thevn) s 

N  *  5 

X(l)  -  4.0  X(Z)  •  7.3  X( 3)  ■  12.8  X(4)  -  0.5  X(5)  -  2.2  X(6) 

Let  the  progran  contain  the  statement: 

FOR  I  -  1  TO  6,  WITH  ( I  <  N  ANO  X( I )  <  X( I  ♦  1 ) )  OR  I  »  N, 
COMPUTE  NX  -  THE  NUMBER,  5UMX  AS  THE  SUM,  NM  AS  THE  *«AN, 

SSQX  AS  THE  S IF. OF. SQUARES,  MSQX  AS  THE  MEAN. SQUARE,  VARX  AS 
THE  VARIANCE,  SOVX  AS  THE  STD. DEV,  MINX  AS  THE  MINIMUM, 

MAXX  AS  THE  MAXIMUM,  MINI  -  THE  MIN(I)  OF  1(1) 
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The  above  statement  Iterates  the  control  variable  I  over  the  values 
1,2,3, 4,5,  and  6,  and  selects  only  those  values  for  Inclusion  In  the 
COMPUTE  s tat ease t  computations  for  which  1  <  5  and  X(l)  <  X(I+1),  or 
for  which  1*5;  thus,  It  selects  X{1),  X(2),  and  X(4)  under  condition 
1  and  X(5)  under  condition  2.  For  these  Index  miners,  the  statis¬ 
tical  quantities  are  computed  for  the  expression  X(I).  The  computed 
statistics  are: 


Computed 

Variable 

Statistic 

Computation 

NX 

NUMBER 

4 

SUMX 

SUM 

4.0  ♦  7.3  +  0.5  +  2.2  -  14.0 

MX 

MEAN 

14.0/4  -  3.5 

SSQX 

SUM. OF. SQUARES 

(4 . 0)2  +(7.3)2  +  (0.5)2  +  (2. 2)2  -  74.38 

MSQX 

MEAN. SQUARE 

74.38/4  -  18.595 

VARX 

VARIANCE 

18.595  -  3.5  -  15.095 

SDVX 

STD. DEV 

SQRT. F(15.095)  -  3.89 

MINX 

MINIMUM 

0.5 

MAXX 

MAXIMUM 

7.3 

MINI 

MIN(I) 

4 

5-08  ALPHA— A  NEW  fCDE 

Since  campi-ters  can  aanipulate  characters  as  well  as  nuabers,  the 
manipulation  of  arbitrary  symbols  has  become  a  feature  of  many  pro¬ 
gramming  languages.  The  ALPHA  mode  deflnas  a  variable  as  containing 
alphanumeric  characters  rather  than  nuabers,  an  alphan\n*erlc  character 
being  a  letter,  digit,  or  special  symbol  such  as  +  or  ?.  A  ^horactar 
atring  is  a  sequence  of  ALPHA  characters,  such  as  appear  in  the  follow- 
' :vg  list: 

LIST  PART.NUWER  MY  HOUSE  ****EUREKA**** 

- X  ♦  Y  «  Z  1 ,478,000  34.5 

""  <<<<<<<<<<<  .  23  SKI000 

Any  character  that  can  be  represented  within  a  computer.  Including  a 
blank  character,  may  appear  In  a  character  string.  In  the  above 
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example,  the  string  MY  HOUSE  la  eight  cheractera  long  and  includea  a 
blank  character. 

The  nuaber  of  cheractera  that  can  be  atored  in  a  computer  word 
varlea,  a a  doea  the  nuaber  of  diglta  that  can  be  atored  in  an  INTEGER 
variable.  The  nuaber  for  a  apeclfic  SIMSCRIPT  II  iapleaentaclon  is 
given  in  that  lapleaentatlon'a  instruction  aanual.  In  all  implemen¬ 
tation*  (  however,  ALPHA  variable*  are  atored  in  the  aaae  way  —  charac¬ 
ter*  are  lef t-adjuated  within  a  computer  word.  If  a  single  character 
it  read  into  an  ALPHA  word,  it  la  put  in  the  leftaoat  character  posi- 
tion  and  followed  by  blank*. 

ALPHA  variables  are  declared  by  statement*  such  as 

DEFINE  V  AS  AN  ALPHA  VARIABLE  and 
NORMALLY,  MODE  IS  ALPHA 

ALPHA  variable*  can  be  dimensioned,  and  can  be  SmVED  or  RECUPSiVE. 
ALPHA  functions  are  also  possible.  Defining  a  function  as  ALPHA  means 
that  the  "value"  returned  by  the  function  la  created  as  a  character 
string,  rather  than  as  a  numerical  quantity. 

ALPHA  variables  are  treated  as  INTEGER  variables  in  all  computa¬ 
tions  except  input/output.  This  means  that  the  sum  of  two  ALPHA 
variables  is  the  (normally  meaningless)  algebraic  sum  of  their  internal 
character  representations.  If  X  and  Y  are  ALpHA  variables  and  X  con¬ 
tains  the  character  string  ONE  and  Y  the  character  string  TWO,  the 
statement  ADD  X  TO  Y  produces  meaningless  garble;  it  does  not  produce 
the  character  string  ONE  TWO. 

ALPHA  variables  are  often  used  in  IF  tests  to  permit  input  data 
to  be  readable  rather  than  being  mere  arbitrary  code  numbers.  If  the 
end  of  a  deck  of  data  is  to  be  signaled  by  a  flag,  it  is  easier  to 
understand  the  organisation  of  th«  deck  if  tho  flag  is  the  character 
string  END  than  if  it  vere,  for  instance,  the  nvmiber  999.  An  ALPHA 
variable  or  function  can  be  used  in  s  logics!  expression  In  either  of 
two  ways:  (1)  with  another  ALPHA  varlaole  or  function  in  teets  such  ss 

IF  INPUT. CHARACTER  EQUALS  ALPHABET ( I )  .nd 

WITH  VALUE  NOT  EQUAL  SYMBOL 

or  (2)  with  s  l it* ral  in  tests  such  as 
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IF  INPUT. CHARACTER  EQUALS  "?"  and 
WITH  VALUE  NOT  EQUAL  "*END*" 

A  literal,  as  shown,  is  a  character  string  enclosed  in  quotation 
marks. ^  A  quotation  mark  within  a  character  string  is  represented 
by  an  underscore  (__).  Literals  are  ALPHA  constants.  They  are  com¬ 
piled  directly  into  programs,  cannot  be  altered,  and  can  be  used  just 
like  ALPHA  variables.  Of  course  there  can  be  no  mor1-  characters  in 
a  literal  than  in  an  ALPHA  variable.  Literals  appear  in  examples 
throughout  the  remainder  of  this  section}  their  utility  should  be 
apparent  from  their  use. 

The  remainder  of  this  section  is  concerned  with  the  effect  ALPHA 
variables  have  on  previously  described  input/output  statements.  Their 
effect  on  all  other  statements  has  already  been  discussed,  i.e.,  they 
are  treated  as  INTEGER  quantities. 

In  a  free-form  READ  statement  of  the  form  READ  V,  where  V  has  been 
declared  as  ALPHA,  reading  begins  at  the  first  nonblank  character  and 
terminates  when  the  first  blank  appears  or  after  reading  as  many 
characters  into  V  as  it  can  contain.  Successive  ALPHA  values  can  be 
separated  by  blanks,  as  can  numbers.  Thus,  blanks  cannot  be  read  into 
ALPHA  variables  by  a  free-form  READ.  A  number  to  the  right  of  a  full 
ALPHA  word  of  characters  need  not  be  separated  from  them  by  a  blank, 
although  one  is  certainly  permissible.  Assume  that  a  computer  word 
can  hold  four  alphanumeric  characters  and  that  X  is  ALPHA  and  I  is 
INTEGER.  The  READ  statement 

READ  X(1 ) ,X(2) ,X(3)  AND  I 

reads  the  first  four  contiguous  nonblank  characters  into  X(1),  the 
second  four  into  X(2),  and  the  third  four  into  X ( 3 ) ,  and  then  reads 
into  I  however  many  digits  follow  to  the  first  blank.  If  the  free¬ 
form  "look  ahead"  feature  is  used  (see  Sec.  2-13) ,  the  mode  of  the 
next  value  to  be  read  can  be  ascertained  by  the  statement 

IF  MODE  IS  ALPHA 

If  this  value  is  an  integer  uumber,  it  is  reported  as  INTEGER,  even 
though  a  string  of  digits  is  a  legitimate  character  string.  Since 

^The  single  character  "  used  to  bracket  a  literal  is  different 
from  the  two  characters  1 '  used  to  bracket  a  comment. 
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the  system  does  not  know  how  characters  are  to  be  used  but  only  their 
form,  the  value  has  to  be  reported  as  INTEGER. 

In  a  LIST  statement  of  the  form  LIST  V,  where  V  has  been  declared 
as  ALPHA,  the  contents  of  V  are  displayed  similarly  to  INTEGER  values 
except  that  character  strings  are  left-adjusted.  Additionally,  lead¬ 
ing  zeroes  are  not  suppressed,  as  they  are  legal  alphanumeric  charac¬ 
ters.  In  ALPHA  mode,  zero  and  blank  are  distinct  symhola. 

In  a  PRINT  statement  where  the  format  of  an  item  must  be  described 
by  a  "picture"  of  asterisks,  single  parallels,  and  decimal  points,  each 
ALPHA  character  must  be  pictured.  Unlike  INTEGERS,  where  only  the 
position  of  the  rightmost  digit  must  be  shown,  all  characters  of  an 
ALPHA  variable  must  be  indicated  either  by  *  or  | .  If  more  characters 
than  are  stored  in  an  ALPHA  word  are  indicated,  only  the  leftmost 
positions  are  used.  This  choice  of  rules,  quite  different  from  the 
rules  for  INTEGER  printing,  is  made  to  allow  the  greatest  flexibility 
in  displaying  alphanumeric  information. 

3-09  A  FORMATTED  INPUT/OUTPUT  STATEMENT 

The  READ,  PRINT,  and  LIST  statements  permit  programs  to  (1)  read 
data  in  free-form  from  punched  cards,  (2)  display  computational  results 
in  picture-like  formats,  and  (3)  generate  labeled  data  displays  without 
consideration  of  specific  formats  or  data  arrangements.  There  is  much 
more  to  computer  I/O  than  these  facilities,  however.  For  example, 
there  are  other  types  of  input/output  units,  such  as  magnetic  tapes, 
disks,  aud  drums.  In  addition,  there  are  recognized  needs  for  facil¬ 
ities  to  read  and  write  f  ormatted  data  and  to  transmit  informs  Hon  in 
internal  machine  representation  as  well  as  decimal  format. 

This  section  presents  a  set  of  statements  for  performing  input/ 
output  functions  with  many  types  of  I/O  devices.  Unfortunately,  these 
statements  can  only  serve  as  guidelines  for  SIMSCRIPT  II  compiler 
implementations,  and  cannot  be  taken  as  strict  language  specifica¬ 
tions  due  to  the  variance  in  input/output  device  designs  among  com¬ 
puter  systems,  as  well  as  to  the  special  relationship  between  input/ 
output  operations  and  computer  operating  systems.  Specifications 
that  appear  in  single  statements  in  our  proposal  may  have  to  appear 


-154- 


in  two  separate  statements  in  some  computer  systems,.  We  can  specify 
the  constituents  of  an  1/0  statement  and  demonstrate  its  capabilities, 
but  we  cannot  ensure  that  these  specifications  are  compatible  with 
all  computer  systems.  It  will  be  the  task  of  the  individual  SUBSCRIPT 
II  Implementation  reports  to  describe  the  way  in  which  Input/output 
statements  differ  from  those  described  here. 

In  general,  three  things  must  be  specified  when  an  input/output 
operation  takes  place:  a  physical  device,  an  information  list,  and 
a  format.  In  the  statements  READ,  PRINT,  and  LIST,  a  physical  device 
is  Implied  (card  reader  or  printer),  an  information  list  is  stated 
explicitly,  and  a  format  is,  in  the  first  Instance,  "free,"  in  the 
second,  a  "picture,"  and  in  the  third,  standardised.  The  statements 
following  provide  flexible  options  for  expressing  each  of  these  items. 

Physical  Device  Specification 

Since  data  can  be  read  from,  or  written  on,  a  large  number  of 
data  devices  of  different  types,  the  device  to  be  used  in  any  particular 
Instance  must  be  specified.  This  is  done  by  giving  each  distinct 
device  a  name  or  code  number.  It  is  difficult  to  specify  the  form  of 
the  code  as  this  is  an  item  that  differs  among  computer  systems.  Tor 
convenience  we  will  assume  that  each  device  has  a  devioe  none  abbre¬ 
viated  as  "d,"  and  leave  the  precise  specification  of  the  form  of  "d" 
to  specific  implementation  manuals.  If  "d"  refers  to  a  number,  any 
arithmetic  expression  should  be  allowed.  For  example,  assume  that  an 
Installation  has  as  its  input /output  devices  a  line  printer,  a  card 
reader,  a  card  punch,  six  magnetic  tape  drives,  a  magnetic  drum,  and 
two  disk  units.  By  convention  we  number  (name)  these  devices  1,2,. ..,12, 
respectively.  A  particular  device  is  selected  as  a  current  input  unit 
or  current  output  unit  by  executable  statements  of  the  form 

USE  d  FOR  INPUT  or  USE  UNIT  d  FOR  INPUT  and 

USE  d  FOR  OUTPUT  or  USE  UNIT  d  FOR  OUTPUT 

TAPE  can  be  used  in  place  of  UNIT  when  applicable.  Such  statements 
specify  that  the  named  devices  are  to  be  used  in  logically  subsequent 
input  and  output  statements;  that  is,  since  they  are  executable 


statements,  tha  physical  ordar  la  which  they  appear  In  a  program  oaad 
not  ba  lap or cant ;  GO  TO  statements  can  transfer  from  USE  to  READ  and 
WRITE  statements  that  night  physically  precede  then. 

Each  tine  a  USE  statanent  is  executed,  a  global  variable  naned 
READ.V  or  WRITE. V  is  assigned  the  value  of  the  designated  unit  "d." 

These  variables  can  be  used  freely  in  all  SIMSCRIPT  II  etatenenta,  aa  in 

IF  READ.V  ■  5,  GO  TO  SWITCH. UNIT  ELSE 

When  a  program  does  not  contain  any  USE  etatenenta,  as  in  Level  1 
and  2  progress,  SUBSCRIPT  II  aasuaea  that  a  designated  "standard" 
card  reader  and  "standard"  line  printer  are  used  for  its  READ,  PRINT, 
and  LIST  operations.  Anong  the  iteas  of  Information  that  nust  be 
specified  when  a  SIMSCRIPT  II  compiler  ia  used  in  a  specific  environ¬ 
ment  are  the  device  names  of  such  standard  units.  READ.V  and  WRITE. V 
are  Initially  set  to  the  values  of  these  devices. 

If  the  cu  rent  input  unit  is  specified  as  the  current  output  unit, 
the  current  input  unit  is  changed  to  the  "standard"  card  reader.  If 
Che  current  output  unit  is  specified  as  the  current  input  unit,  the 
current  output  unit  is  changed  to  the  "standard"  line  printer.  Since 
a  device  cannot  be  used  for  both  input  and  output  at  tha  aane  tine, 
this  ensures  that  error  messages  will  be  properly  displayed  and  in¬ 
creases  the  chances  of  catching  programing  errors  in  unit  assignments. 

The  READ,  PRINT,  and  LIST  statements  can,  of  course,  be  used  vlth 
other  units,  as  veil  as  with  the  designated  standard  units.  Pree- 
form  data  nay  be  read  fron  any  one  of  a  number  of  card  readers  or 
magnetic  tape  units  if  they  are  designated  as  the  current  input  unit, 
whereas  output  can  be  vrlrten  onto  aagnatlc  tape,  as  well  as  being 
displayed  on  printers. 


Input/Output  Devices 

A  great  aany  Input/output  devices  are  available  to  a  computer 
user  today,  but  few  computer  installations  have  access  to  all  of  them. 
The  devices  people  are  most  familiar  with  and  that  are  found  in  the 
majority  of  installations  are  punched  card  readers  and  punches,  line 
printers,  typewriters,  magnetic  tape  transports,  magnetic  drums,  and 
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varying  forms  of  disk  storage  devices.  Devices  less  common,  although 
also  widely  used,  are  paper  tape  readers  and  punches,  cathode-ray  tube 
displays,  light  pens,  and  preaaure-senaltlve  Input  tablets.  Although 
SIKSCRIPT  II  can  provide  commands  for  dealing  with  all  of  theae  de¬ 
vices  explicitly.  It  does  not  do  so.  Rather,  It  provides  a  mechanise 
for  dealing  with  all  devices  that  read  and  write  Information  sequentially. 

Each  device  haa  certain  characterlstica,  and  is  organised,  or 
can  be  organised,  In  specific  ways.  SIMSCRIPT  II  utilises  one  par¬ 
ticular  aode  of  organisation  that  Is  shared  by  all  devlcea,  but  one 
that  la  by  no  means  Inclusive  for  all  possible  organisations.  Such 
a  meda  la  the  sequential  classification  of  a  data  strean  Into  fields 
and  records, 

A  field  la  a  logically  defined  group  of  consecutive  character* 
within  a  record;  It  does  not  necessarily  correspond  to  any  physically 
distinguishable  unit.  A  format  (dellnea'ed  later  In  this  section) 
describes  a  data  field;  data  fields  are  defined  by  formats  and  delin¬ 
eated  by  blank  characters  in  free-form  data  streams.  A  record  Is  a 
physically  distinct  sequence  of  data  fields. 

Within  each  SIMSCRIPT  II  program  are  Input  and  output  buffers. 

Input  buffers  are  filled,  and  output  buffers  emptied,  by  programmer 
instructions  In  READ  and  WRITE  statements,  and  by  the  SIMSCRIPT  II 
system  when  statements  such  as  PRINT  and  LIST  are  used.  Individual 
READ  and  WRITE  statements  do  not  necessarily  access  an  entire  record, 
but  proceed  sequentially  through  input  and  output  buffers  as  data 
elements  are  selected.  Normally,  a  programmer  need  not  concern  him¬ 
self  with  the  functioning  of  input  and  output  buffers  except  to  empty 
them  by  Indicating  that  subsequent  input  or  output  operations  are  to 
begin  on  a  new  line  or  card,  following  subsections  describe  hem  this 
is  accomplished. 

Because  SIKSCRIPT  II  has  facilities  for  operating  on  fields  and 
records  and  because  its  source  language  statements  are  independent  of 
particular  devices,  It  haa  a  sat  of  conventions  that  define  the  con¬ 
cept#  of  field  and  record  for  different  types  of  davlcoa.  Thasa 
devices  ara  shown  in  Tebla  1-2.  Tha  distinctions  shown  in  the  table 
will  become  clear,  as  tha  statements  that  employ  them  ere  described 
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Table  3-2 


iNFirr/oirmrr  tmrr  characteristics 


I/O  Device 

Maximum 
Plaid  Width 

Record 

Punched  card 

80  columns 

Card 

Line  printer 

-b-  columns 

Lina 

Magnetic  tepe 

none 

-a- 

Magnetic  drum 

none 

-a- 

Magnetic  disk 

none 

-a- 

Typewriter 

-b-  columns 

Line 

Paper  tape 

none 

-a- 

*Delimited  by  an  internal,  pregram- 
gencrated  nark. 

^Determined  by  peripheral  equipment 
characteristic* . 


in  the  following  pages.  The  statements  will  also  be  clarified  by  the 
examples  shown  at  the  end  of  the  section. 


The  Formatted  I/O  Statements  READ  and  WRITE 


The  READ  statement  used  thus  far  has  only  been  able  to  read  free 
form  data.  A  READ  statement  Chat  accepts  formatted  data  has  the  form 


READ  variable  list  AS  format  list 


in  which  each  variable  value  to  be  reed  has  its  input  data  format 
described  by  a  corresponding  descriptor  In  a  format  list.  These  for¬ 
mats,  which  are  codes  telling  how  the  Input  data  are  placed  on  data 
carda,  arc  described  In  the  next  subsection. 

The  WRITE  statement  transfers  values  from  within  the  computer  to 
specified  external  media,  such  as  line  printers  or  magnetic  tapes. 
Every  WRITE  statement  is  formatted.  With  the  sol*  exception  of  the 
LIST  statement,  it  Is  slwsye  the  programmer's  obligation  to  indicate 
the  arrangesmnt  of  output  data.  The  WRITE  atatement  looka  like  the 
READ  atatement;  lta  form  le 
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WRITE  arithmetic  expression  list  AS  format  list 

In  chin  ittteMnt  the  indicated  expressions  art  evaluated  and  printed 
in  the  fora  deacrlbed  by  their  matching  format  deacriptora. 

Before  theae  READ  and  WRITE  statements  can  be  deacrlbed  through 
examples,  the  foraat  deacriptora  aust  be  defined.  There  are  ten  of 
thea;  five  are  uaed  for  expressing  numerical  plcturea  and  five  are 
uaed  for  e pacing,  skipping  lines,  and  slallar  actions.  The  five 
numerical  descriptors,  which  define  Integer,  decimal,  scientific  nota¬ 
tion,  alphanumeric,  and  intamal  computer  representation  data  fields, 
trill  be  described  first. 

I  (Integer)  Descriptor 

A  descriptor  of  the  fora  n  I  w  is  used  for  converting  nuabers 
from  their  Internal  Integer  coaputer  storage  representation  to  an 
external  format,  and  vice  versa.  The  character  I  Is  always  followed 
by  an  expression  (w),  specifying  the  aaxlaua  number  of  digits  In  the 
Integer  field.  Including  the  sign.  The  I  can  be  preceded  by  a  number 
(n),  declaring  that  the  descriptor  defines  n  consecutive  identical 
data  fields.  The  formats  216  and  14  I  3  define  2  fields  of  6 
positions  and  14  fields  of  1  positions,  respectively.  There  must  be 
at  least  one  b lank  between  the  fields  n,  It  and  w. 

When  an  I  format  Is  uaed  for  input.  It  specifies  that  the  full 
contents  of  a  field  w  digits  wide  are  to  be  stored  as  the  value  of  a 
corresponding  variable  In  a  READ  stateaent.  Blank  field  positions, 
leading,  embedded,  or  trailing,  are  treated  as  seroes.  If  a  field  la 
unsigned.  It  Is  Interpreted  as  positive,  although  a  plus  slgr  can  be 
punched.  Excepting  the  sign  character,  only  numbers  can  be  punched 
In  an  I  data  field.  If  w  Is  larger  than  the  aaxlmua  number  of  digits 
that  can  be  stored  in  a  computer  word,  only  the  rightmost,  storable 
digits  are  used.  The  additional  digits  are  skipped  over.  If  w  Is 
lass  than  a  "full  word,"  the  digits  read  are  right-ad justed  and  the 
word  filled  out  on  the  left  with  seroes. 

On  output,  an  I  format  places  a  right-adjusted  Integer  in  a  field 
of  specified  width.  Nuabers  larger  than  the  field  width  are  converted 
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Co  scientific  notation.*  Poaltlve  numbers  ara  printed  unsigned,  while 
negative  nuabere  have  their  algn  printed  to  the  left  of  the  hlgheat- 
order  digit.  Leading  seroea  are  auppreaaed. 

D  (Decimal)  Deacrlptor 

A  deacrlptor  of  the  for?  n  D(a,b)  la  uaed  for  converting  nuabere 
froa  Internal  to  external  decimal  representation,  and  vice  veraa. 

The  a  field  epeelflee  the  nuaber  of  charactere  In  the  Jata  field. 
Including  the  algn  and  declaal  polnta,  the  b  field  apeclflea  the  num¬ 
ber  of  dlglta  to  the  right  of  the  declaal  point,  and  the  optional  n 
Held  apeclflea  the  nuaber  of  conaecutlve  valuea  of  the  format. 

When  used  for  Input,  the  D  format  accepts  nuabers  punched  with 
or  without  declaal  polnta.  If  a  decimal  point  is  omitted,  one  is 
implied  before  the  first  digit  in  the  b  field.  When  a  decimal  point 
la  present.  It  overrides  the  location  specified  ly  b.  Very  large  and 
vary  small  nuabers  can  be  input  in  scientific  notation,  for  when  used 
for  input  the  0  and  E  formats  are  equivalent.* 

Uaed  in  output  statements,  0  formats  describe  the  precision  in 
which  declaal  nuabers  are  dlaplayed.  Nuabers  sore  precise  than  their 
output  formats  are  rounded,  as  described  in  Table  1-2,  Sec.  1-13. 

Every  nuaber  output  by  a  D  format  is  punched  in  a  field  of  a  columns: 
the  first  column  is  uaed  for  the  sign,  the  next  a-b-2  columns  ere  for 
digits,  the  next  column  is  for  the  declaal  point,  and  the  remaining  b 
columns  are  for  digits.  The  sign  is  printed  if  a  nuaber  is  negative, 
otherwise  it  remains  blank.  If  the  integer  part  of  a  negative  declaal 
nvmber  does  not  fill  up  the  a-b-2  positions  allotted  to  It,  the  sign 
is  shifted  to  the  right,  next  to  the  high-order  digit.  Leading  zeroes 
are  suppressed.  If  a  nuaber  has  trailing  zeroes,  as  in  the  nuaber 
10.0,  which  is  whole-valued,  the  trailing  zeroes  are  printed.  The 
trailing  zeroes  are  blank  only  if  the  value  of  a  nuaber  is  exactly 
zero,  as  opposed  to  a  nuaber  that  has  a  very  swell  value  in  the  com¬ 
puter's  internal  representation. 


See  p.  161. 


E  (Scientific)  Descriptor 


Extremely  large  end  extremely  email  numbers ,  end  numbers  that 
vary  widely  In  scale,  can  be  read  and  written  In  a  constant  field 
width  by  using  an  E  format.  This  format  la  similar  to  the  0  format 
In  that  It  specifies  a  field  width  and  a  decimal  point  position  by 
the  numbere  a  and  b  in  the  form  n  E(a,b),  but  It  differs  from  the  0 
format  In  having  a  scale  factor  field.  The  scale  factor  field  appears 
to  the  right  of  e  decimal  number  and  indicates  the  necessary  number 
of  places  right  or  left  the  decimal  point  must  be  moved  to  convert 
the  scaled  number  to  Its  proper  form. 

The  E  format  la  thus  equivalent  to  the  D  format,  plus  a  scale 
factor.  Numbers  printed  or  read  under  E  format  control  are  of  the 
general  form 

txxx.xxxEtxx 

although  some  latitude  Is  allowed  in  writing  the  scale  factor.  A 

positive  scale  fector,  such  as  E+02  or  E  7  raises  the  value  of  a 

printed  number  —  24.795E+04  represents  an  Internally  stored  value 
4 

of  24.795  it  10  •  247950.  A  negative  scale  factor  decreases  the 
value  of  a  printed  number  —  24.795E-04  represents  an  Internally 
scored  value  of  .0024795. 

The  E  format  can  be  used  for  both  Input  and  output.  When  used 
for  output.  It  aligns  numbers  according  to  the  format  specification 
and  prints  a  scale  factor  indicating  the  true  value  of  the  printed 
nusd>er.  All  E  formatted  numbers  are  a  print  positions  vide,  with  the 
first  i-4  positions  used  for  the  number,  Including  Its  sign  and  decimal 
point,  and  the  last  four  positions  used  for  the  scale  factor  Etxx. 
Positive  scale  factors  print  without  the  plus  sign,  as  E  10,  E  5, 
and  E  1.  Negative  scale  factors  print  the  uegstive  sign  sfter  the 
E,  ss  £-10,  E-  5  end  E-  1. 

E  formatted  Input  date  can  be  punched  In  s  variety  of  ways,  as 
the  acale  factor  may  or  may  not  contain  a  sign  or  the  letter  E.  The 
numbers  1.0E*05,  1.0E05,  *1.0F,  5,  and  1.05*5  are  equivalent  Input 
data  representations  of  the  number  100,000  under  the  Input  format 
E(7,l).  Aa  shown,  either  e  sign  or  the  letter  E  muat  be  present  to 
separate  the  number  end  acale  factor  fields. 
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Emphaai*  Bust  again  be  directed  to  the  fact  that  when  values  are 
too  large  to  be  printed  In  their  Indicated  formats ,  data  are  displayed 
In  scientific  notation.  The  rules  governing  this  are  as  follows : 


Field 

Width 

Characters  Printed 

Example:  numbar»247. 538 

1 

E 

£ 

2 

eign  of  menber  E 

4£ 

3 

eign  of  nienber  E  eign  of  exponent 

+€♦ 

4 

eign  of  nienber  E  eign  of  exponent  d 
d*  digit  If  0  <_  exponent  <  9 
•  *  If  exponent  >  10 

♦E+2 

5 

sign  of  number  E  exponent 

+€402 

6 

eign  of  nierber  digit  E  exponent 

+-2L+02 

7 

sign  of  nienber  digit.  E  exponent 

+2.E+02 

8 

eign  of  nienber  digit. digit  E  exponent 

-+2.4E+02 

1  9 

eign  of  nienber  digit. additional 

digite  E  exponent 

4-2. 4  7  £*02 

4-2. 475E+02 

4-2. 4754E+02 
■+2.47538E402 

Numbers  can  be  punched  in  scientific  notation  for  free-form  as 
veil  as  for  format-directed  input.  A  number  of  the  form  nienber  expo¬ 
nent  Is  interpreted  as  a  scientific  notation  input  field  in  free-form 
input  statements.  No  blanks  are  allowed  between  the  nienber  and  expo¬ 
nent  parts  of  the  field.  The  forme  of  these  parts  are: 


nienber  a  REAL  or  INTEGER  conatant 

exponent  E*xx  E  Is  optional 

+  Is  not  naeded  If  exponent  is  positive 


examples : 

1.0067E+10 

9.46755^04 

4^0E1 

9.999-6 

5E6 


l.OOM-HO 
9.46755E4 
4. (HI 
9.999E-06 
546 
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A  (Alphanume rlc)  Descriptor 

The  alphanumeric  descriptor  n  A  W  is  similar  to  the  !  descriptor 
in  fore  and  action.  On  input,  the  contents  of  a  specified  field  are 
stored  as  the  value  of  a  corresponding  variable  in  a  READ  list.  This 
variable  oust  have  been  declared  as  ALPHA.  Since  an  ALPHA  variable 
can  contain  any  legitimate  characters  that  can  be  punched  in  a  card, 
including  blanks,  these  punched  characters  are  stcred.  iT  the  number 
of  characters  in  the  field  la  leas  than  the  number  of  characters  in 
an  ALPHA  computer  word,  the  characters  are  stored  in  the  leftmost 
positions  in  the  word,  followed  by  blanks.  If  more  characters  are 
apecifled  chan  can  be  stored,  the  leftmost  are  stored  and  the  remainder 
skipped  over. 

When  used  in  output  statements,  the  A  format  axtracts  characters 
from  the  leftmost  part  of  an  output  variable  or  function.  The  format 
A  1  displays  the  leftmost  character,  A  2  displays  the  two  characters 
farthest  to  the  left,  and  so  on. 

C  (Computer  lepresentatlon)  Descriptor 

Few  computer*  use  decimal  notation  internally.  Host  use  inary 
coding  schaoaa  that  represent  decimal  numbers  as  sequences  of  zeroes 
and  ones.  Generally,  a  group  of  binary  bits  constituting  a  character 
in  a  nueber  system  other  than  binary  or  decimal  is  used  as  an  input/ 
output  character.  Because  strings  of  such  numbers  are  short,  they  are 
easy  to  interpret.  The  unit  on  the  I1M  7090  cless  computers  that  have 
36  binary  bits  per  computer  word  is  tha  octal  byta.  Each  36-blt  word 
can  be  treated  ae  twelve  3-bit  bytes  that  take  on  the  values  0,1, 2,3, 4, 
5,6,  and  7 , 

The  format  n  C  6  interprets  characters  read  or  written  in  the 
unit  of  the  computer  on  which  a  particular  SlfCClIPT  II  costlier  la 
Implemented.  The  for  tat  C  12  on  an  IBM  7090  naans  read  or  write  17 
octal  characters;  the  format  C  1  on  u  IBM  360  means  read  or  writ*  4 
hexadecimal  characters.  The  two,  of  course,  are  incompatible  —  no 
more  th»*»  8  hexadecimal  characters  can  be  stored  in  e  160  word. 

Steve  r  the  lees,  there  are  tinea  when  internal  representation  must  be 
dleplayed  and  a  machine-dependent  format  is  required. 
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Foralng  For— t  Lists 

Format  list*  are  composed  of  sequences  of  format  descriptors 
separated  by  co— a  a,  taring  the  execution  of  READ  and  WRITE  state¬ 
ments,  format  lists  are  scanned  froa  left  to  right  and  individual 
format  deacrlptora  used  as  they  are  needed.  With  few  exceptions, 
variables  being  read  and  expressions  being  written  must  agree  in  mode 
with  their  format  descriptors.  The  exceptions  are  INTEGER  and  ALPHA 
nodes  that  can  be  used  Interchangeably;  when  they  are  interchanged, 
the  mode  of  the  format  descriptor  governs.  When  a  format  descriptor 
is  preceded  by  s  repetition  character  n,  n  consecutive  READ  or  WRITE 
quantities  use  the  same  format.  Some  axaaples  of  READ  and  WRITE 
statements  that  use  formated  data  follow: 

(a)  READ  X,  ANSWER  AND  Y  AS  I  3,  I  2,  I  2 

If  ve  assume  that  data  are  on  punched  cards,  and  the  above  statement  — 
the  first  in  a  program  —  starts  reading  at  column  one,  the  value 
punched  in  columns  1-3  is  assigned  to  X  ,  the  value  pur.-hed  in  columns 
4-5  is  assigned  to  ANSWER,  and  the  value  punched  in  columns  6-7  Is 
assigned  to  Y.  The  data  card  might  appeal  as 

colismi  number 

oooooooocinn... 

12345678901234 
160  3  8 

in  which  case  X*160,  ANSWtR"3,  and  Y*8,  or,  it  may  appear  as 

column  number 

0000000001111... 

12345678901234 

-336-9 

in  which  case  X«-3,  ANSk£R"36,  and  Y*-9.  The  data  are  read  sequen¬ 
tially.  The  information  needed  to  locate  a  number  and  determir*  lta 
form  la  contalnad  in  tha  format  daaerlptora. 

(b)  READ  X,  ANSWER  AND  Y  AS  I  3,  2  I  2 

Kara,  the  format  list  la  the  seme  as  (s)  except  that  the  second  end 
third  format  daaerlptora  have  been  combined. 
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(c)  WKITE  X,  ANSWER  AND  Y  AS  I  3,  2  I  2 

In  this  example,  the  values  of  the  expressions  X,  ANSWER,  and  Y,  are 
output  In  the  Indicated  format.  We  will  assume  that  the  output  has 
been  specified  to  appear  on  the  standard  line  printer  and  th»t  this 
statement  is  the  first  to  be  executed.  If  the  values  of  X,  ANSWER, 
and  Y  are  9,  -3,  and  0,  respectively,  the  printed  line  appears  as 

column  number 

00000000011111... 

12345678901234 

9-3  0 

Notice  that  leading  zeroes  are  left  blank,  but  that  the  rightmost 
zero  in  a  zero-valued  integer  is  printed. 

(d)  READ  X,Y,Z  AS  3  0(10,3) 

Three  decimal  fields  are  specified,  the  first  in  columns  1-10,  the 
second  in  columns  11-20,  and  the  third  in  columns  21-30.  Assume  the 
data  punched  as 

column  number 

0000000001 111111111 22222222223333 . . . 

1 2345678901 23456789012345678901 23 . . . 

126.345  -18.62  768954346 

The  first  data  field  is  assigned  to  X  and  the  decimal  point  is  where 
it  is  expected,  in  column  7.  The  second  data  field  is  assigned  to  Y; 
here  the  decimal  point  is  not  where  it  is  expected,  in  column  17. 
Therefore,  the  punched  number  overrides  the  stated  format,  and  the 
value  -18.62  is  assigned  to  Y.  A  characteristic  of  the  D  format  is 
that  it  allows  itself  to  be  overridden  if  a  decimal  point  is  punched 
within  a  field.  If  no  decimal  point  is  punched,  as  occurs  in  the 
third  data  field,  its  location  is  determined  by  the  format.  In  this 
call,  the  value  768954.346  is  assigned  to  Z. 

(e)  READ  X  AS  0(8,2) 


Such  s  data  item  might  be  punched  as 
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column  number 

00000000011111... 

123456 7890  U34 

16. 5E  2 

The  punched  decimal  point  overrides  the  format.  The  scale  factor 
multiplies  the  resulting  number  by  10**2  so  that  the  value  1650  Is 
assigned  to  X.  The  flexibility  of  the  decimal  format  Is  shown  In  the 
following  statement  that  defines  a  data  card  so  that  a  large  range  of 
numbers  can  be  accommodated: 

(£)  READ  X(l),  X(2) ,  X(3) ,  X{4),  X(5)  AS  5  D(10,2) 

A  data  card  may  appear  as 
column  number 

00000000000000000002222222222333333333344444444445. . . 
12345678901234567890123456789012345678901234567890... 

41.25  19.22E-03  4537992  -167.1 

in  which  case  X(l)=41,25,  X(2)=0. 01922,  X ( 3 ) =45379 . 92 ,  X(4)=0.00, 
and  X(5)*- 167.1. 

(g)  WRITE  A,B,C,D,E  AS  2  I  4,  0(10,3),  E(9,l),  I  6 

This  statement  defines  output  pictures  for  five  expressions  —  A  to 
E.  Assume  that  A  and  B  are  INTEGER  variables  with  current  values  9 
and  132,  C  is  a  REAL  variable  with  current  value  19.2,  D  is  a  REAL 
value  with  current  value  8,25,  and  E  is  an  INTEGER  variable  with 
current  value  -1863976.  The  output  will  look  like 

column  number 

oooooooooi  limn  112222222222333333333344444444445.. . 

1 23456789012345678901 ?345678901 2345678901 234567890 . . . 

9  132  19.200  8.3E+00-2E+06 

The  output  of  E  illustrates  the  action  taken  when  a  value  is  too  large 
for  its  field.  In  this  instance,  a  seven-digit  Integer  could  not  be 
printed  in  a  six-digit  field,  and  was  converted  to  a  six-character 
scientific  representation.  The  actual  value  -1,86397x10  was  rounded 
to  a  value  that  could  be  printed  2x10  and  would  retain  the  most 
significance. 
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(h)  READ  A(1),A(2),A(3)  AS  3  A  4 

If  we  assume  that  the  array  A  has  been  defined  as  ALPHA,  and  that  each 
computer  word  holds  four  characters,  the  following  data  will  be  read 
and  stored  in  A(1),  A( 2 ) ,  and  A(3): 

column  number 

000000000111111111 

123456789012345678 

INPUT  DATA 

A(1 )  contains  the  characters  INPU,  A(2)  the  characters  T  DA,  and  A(3) 
the  characters  TA__.  The  character  __  denotes  a  blank. 

(1)  The  above  string  c  characters  can  be  printed  by  the  statements 

FOR  1-1  TO  3,  WRITE  A{I)  AS  A  4  or 
WRITE  A{1 ) ,  A(2) ,  A(3)  AS  3  A  4 

which  produce  the  identical  output  of 

column  number 

0000000001  111 
1234567890123 

INPUT  DATA 

(j)  The  word  INPUT  alone  can  be  printed  by  the  statement 
WRITE  A(1 )  AND  A(2)  AS  A  4,  A  1 

which  produces  the  output 

column  number 

000000000111 

123456789012 

INPUT 

(k)  Let  I  be  an  INTEGER  variable  and  A  an  ALPHA  variable.  The 
statement  WRITE  I  AS  I  4  displays  the  value  of  I  as  an  integer  number. 

If  I  had  been  assigned  the  value  138  by  a  LET  statement,  the  number 
138  would  be  printed.  The  statement  WRITE  I  AS  A  4,  however,  displays 
the  value  of  I  as  an  alphanumeric  string.  Had  A  been  assigned  the 
value  THIS  by  the  statement  READ  A  AS  A  4,  and  then  I  assigned  the 
value  THIS  by  the  statement  LET  I -A,  the  value  THIS  would  be  printed. 
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Thua  far,  Che  examples  have  pretended  that  each  new  READ  or  WRITE 
statement  starts  at  the  beginning  of  a  new  data  card,  line,  or  record. 
This  does  not  always  occur.  It  has  been  a  convenient  fiction  for  the 
expoaitlon  of  format  descrlptora. 

All  READ  and  WRITE  statements  operate  on  a  continuous  string  of 
characters  and  only  skip  to  a  new  data  card  or  output  line  when  so 
instructed.  Thus,  the  two  statements 

READ  X  AS  I  5  READ  Y  AS  D(10,2) 

read  successive  fields  from  the  same  data  card  (record).  Often,  of 
course,  data  are  split  between  data  cards,  or  must  be  read  from  dif¬ 
ferent,  noncontiguous  parts  of  the  same  data  card.  A  method  of  posi¬ 
tioning  the  current  input  pointer  or  current  output  pointer  is  needed 
to  do  this.  Such  pointers  are  variables  that  point  to  the  last 
referenced  columns  in  the  various  input  and  output  data  streams. 

They  can  be  advanced  by  the  statements  START  NEW  INPUT  CARD,  START 
NEW  OUTPUT  CARD,  and  START  NEW  PAGE,  which  we  have  already  seen,  and 
by  five  nonnumerical  formats.  These  formats  can  be  interspersed 
among  numerical  formats,  or  they  can  appear  alone  in  READ  and  WRITE 
statements.  Examples  of  the  use  of  these  formats  are  given  following 
their  description. 


B  (Beginning  Column)  Descriptor 


This  format  is  used  to  specify  the  position  in  which  the  first 
character  of  an  item  of  input  or  output  data  is  found  or  displayed. 
The  format  B  n  positions  the  current  input /output  device  at  column  n. 
When  several  B  format  descriptors  are  used  within  a  format  list,  they 
do  not  have  to  appear  in  ascending  numerical  order;  for  instance, 
the  format  B  47,  I  10,  B  5,  D(6,3),  B  57,  D(7,3),  B  20,  I  4  prints 
a  line  of  the  following  form: 


col  5 


col  20 


col  47 


D(6,3) 


xxxxxxxxxx 


col  57 


1  D(7,: 


XXX . XXX 


•  e  e 
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S  (Skip  Column)  Descriptor 

Spaces  may  be  skipped  between  output  Items,  or  columns  may  be 
skipped  on  Input  data  cards  by  specifying,  through  the  S  n  format, 
that  n  spaces  are  to  be  skipped  before  reading  or  printing  the  next 
Item  of  data.  Skipped  positions  are  left  blank  on  output,  while  data 
punched  In  skipped  positions  are  Ignored  on  Input. 

/(Skip  to  New  Record)  Descriptor 

Thus  far,  format  descriptors  have  presented  conventions  for 
locating  and  laying  out  data  within  input /output  records.  There  Is 
an  implicit  understanding  that  each  format  list  refers  to  a  single 
punched  card  of  information  or  printed  line  of  output;  we  are  aware 
that  input/output  records  change  only  when  a  START  NEW  INPUT  CARD  or 
START  NEW  OUTPUT  LINE  statement  is  executed.  Unless  this  occurs, 
statements  continue  to  read  from  the  same  card  or  to  print  on  the 
same  line.  A  record  can  be  changed  within  a  format  list,  however,  by 
using  a  /  format  descriptor.  This  descriptor  may  be  used  repeatedly 
within  a  format  list;  each  time  it  is  encountered  it  skips  a  record 
on  the  current  input /output  unit. 

*  (Skip  to  a  New  Page)  Descriptor 

This  format  descriptor  Is  analogous  to  the  /  format;  its  sole 
function  is  to  eject  a  page  on  a  line  printer.  If  used  in  other  cir¬ 
cumstances,  as  when  punching  cards,  it  is  ignored. 

"  "  (Character  String)  Descriptor 

Constant  alphanumeric  data  can  be  Included  in  output  formats  by 
using  a  character  string  format  descriptor.  All  characters  included 
between  double  quotation  marks  are  printed  as  they  appear  except  for 
the  underscore,  which  is  printed  as  ".  The  spacing  of  the  character 
string  can  be  specified  by  other  format  descriptors  such  as  B,  S, 
and  /,  as  well  as  by  blanks  within  the  character  string.  A  character 
string  cannot  exceed  the  length  of  a  printed  line.  If  a  long  string 
is  required,  it  must  be  split  into  two  strings  separated  by  a  /.  Some 
examples  follow. 
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(a)  READ  I  AND  J  AS  I  5,/, I  5 

A  value  for  I  ie  read  from  the  first  five  columns  following  the 
present  location  of  the  current  input  pointer  for  the  current  input 
unit.  A  value  for  J  is  read  from  columns  1-5  of  the  record  following. 

(b)  READ  I  AND  J  AS  B  1,  I  5,/, I  5 

The  current  input  pointer  is  returned  to  the  first  column  of  the 
current  record.  If  the  pointer  is  greater  than  1,  a  new  record  is 
not  selected;  instead,  the  pointer  is  moved  back.  Values  for  I  and 
J  are  then  read  from  the  first  five  columns  of  this  record  and  the 
one  following. 

(c)  READ  I,  J,  K  AS  3  D(10,2),/ 

The  above  statement  establishes  a  "record-oriented"  input  format. 

Each  group  of  variable  values  is  contained  on  a  different  card;  after 
one  group  is  read,  a  new  card  is  read  in  preparation  for  the  next  group. 

(d)  WRITE  A,  B,  C,  D,  E,  F  AS  I  5.S  50,1  5,/,/,/./, 4  0(10,4) 

The  statement  above  writes  two  Integer  variables  spaced  50  columns 
apart  in  an  Integer  format,  concludes  this  record,  bringing  the  current 
output  pointer  to  the  head  of  the  output  buffer,  skips  three  records, 
and  writes  four  decimal  values  on  e  second  record. 

(e)  WRITE  N  AND  AVERAGE  AS  "OF", I  3,"  TO  DATE,  THE  AVERAGE  IS  ”,0(6,2) 

Two  values  embedded  in  character  strings  are  written  from  the 
above  statement.  If  writing  occurs  on  a  line  printer  and  the  current 
output  pointer  is  at  the  beginning  of  a  line,  the  output  looks  as 
follows  for  N«97  and  A VE RAGE *53.287: 

OF  97  TO  DATE,  THE  AVERAGE  IS  53.29 

(f)  READ  A(1),B(2),A(3),A(4),A(5)  AS  B  5,1  10,0(7,3) ,/ ,B  20,3  I  5 

This  statement  begins  in  column  5  of  the  current  input  unit  and 
reads  two  values  in  integer  and  decimal  formats,  respectively,  then 
starts  a  new  record  and  reads  three  integer  values  starring  in  column  20. 

(g)  WRITE  AS  *,/,/,/,/ 
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The  above  statement  atarta  a  new  output  page  and  aklpa  four  linea. 
No  output  values  are  transmitted. 

Controlled  READ  and  WRITE  Statements 

Occasionally,  It  la  necessary  or  desirable  to  read  an  array  of 
values  under  the  control  of  a  READ  statement/  as  In 

FOR  1-1  TO  N,  READ  A(I) 

Here,  the  free-form  READ  reads  a  sequence  cf  values  across  the  current 
Input  record.  If,  however,  values  are  packed  In  a  format  with  no 
blanks  between  them,  the  free-form  READ  cannot  be  used.  One  la 
tempted  to  write 

FOR  1-1  TO  N,  READ  A(I)  AS  I  4 

This  would  be  feasible  If  the  values  of  A(I)  were  spaced  across  an 
entire  record  or  limited  to  one  record.  If,  however,  the  data  are 
arranged  so  that  meaningful  values  are  contained  only  in  columns  1 
through  60  of  a  data  card,  the  above  statement  will  read  through 
column  60  and  take  values  from  columns  61-80.  One  wants  to  skip  to 
a  new  card  upon  reaching  column  61,  but  cannot  write 

FOR  1-1  TO  N,  READ  A(I)  AS  I  4,/ 

as  this  reads  one  value  per  Input  record.  A  new  convention  Is  needed. 

An  expvess'on  enclosed  in  parentheses  placed  before  a  format  list 
repeats  that  format  list  the  Indicated  number  of  times  and  then  skips 
to  a  new  record.  If  N*12  and  four  numbers  are  to  be  read  per  card 
from  columns  1  through  24,  the  following  statements  read  12  values 
from  3  cards : 

START  NEW  CAkD 

FOR  I«1  TO  N,  READ  A(I)  AS  (4)1  5 

This  form  may  also  be  used  if  groups  of  variables  with  different  for¬ 
mats  are  In  a  record.  The  following  statement  reads  4  groups  of  data 

Input  of  an  entire  array  by  use  cf  Its  name  only  la  restricted 
to  the  free-fora  READ  statement. 
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la  the  forme  I  6,D(6,2)  from  each  data  card  uocll  2*N  valuaa  hava 
been  read. 

FOR  1-1  TO  N,  READ  A(I),B(I)  AS  (4)  I  6,D(6,2) 

Thla  repetition  facility  can  be  uaed  with  both  READ  and  WRITE  state¬ 
ments,  but  it  can  only  be  uaed  In  atatemnta  controlled  by  FOR  phraaea. 
Thla  particular  fora  of  the  READ  statement  assumes  that  Input  atarta 
at  the  beginning  of  a  data  card  (record).  Thla  la  the  reaaon  for  the 
START  NEW  CARD  atateaent  in  the  foregoing  exaaple.  The  atateaent  can 
terminate,  of  courae,  with  the  current  Input  pointer  poaltloned  In 
the  alddle  of  a  record.  Thla  la  a  function  of  the  format  uaed. 

Siallar  rulea  apply  to  the  PRINT  and  LIST  atarcaenta,  aa  well  aa 
to  all  Input/output  operatlona  performed  by  the  SIMSCRIPT  II  system. 
Output  la  printed  wherever  the  current  pointer  pointa,  assuming  It  Is 
at  the  head  of  a  record.  After  output,  the  system  positions  the 
pointer  at  the  head  of  the  next  record. 

Variable  Formats 

The  use  of  format  descriptors  containing  expressions  aa  well  aa 
constanta  la  one  feature  available  in  READ  and  WRITE  statements  that 
has  not  been  discussed.  Arithmetic  expressions  can  be  used  to  control 
field  widths  in  formats  for  data  layout  purposes.  For  instance,  a 
curve  of  the  function  log  (1)  using  *  as  a  graphical  character  is 
generated  by  the  atateaent  shown  below. 

FOR  M  TO  100,  WRITE  AS  B  LOG.E.F(I),-*",/ 

Table  3-3  indicates  where  expression.,  can  be  used  in  format  descrip¬ 
tors  and  states  their  form.  This  feature  allows  formats  to  be  con¬ 
structed  during  program  execution,  freeing  programs  from  particular 
data  forms.  Constants  defining  a  format  can  be  read  in,  perhaps  in 
free-form,  before  a  deck  of  data  cards,  to  specify  the  form  in  whir** 
the  data  appear.  If  a  progras:  reads  in  sets  of  data  cards  that  are 
grouped  three  items  to  a  card  with  the  first  item  being  INTEGER  and 
the  balance  REAL,  the  initialisation  routine  of  the  program  could  con¬ 
tain  the  free-form  READ  statement 


Table  1-3 


FORMAT  DESCRIPTOR 


Format  Descriptor  ||  General  Form 


Integer  field 
Decimal  field 
Scientific  field 
Starting  column 
Space  skip 
Alpha  field 
Computer  rep-field 


1  I  e 
1  D(e,e) 
i  E(e,e) 
B  e 
S  e 
1  A  e 
i  C  e 


NOTE:  i  is  an  INTEGER  constant; 

e  is  an  arithmetic  expres¬ 
sion. 


READ  Cl ,  C2,  C3,  C4,  C5 

and  the  program  could  contain  the  formatted  READ  statement 
READ  I,  A,  B  AS  B  Cl  ,  I  C2  ,  S  C3  ,2  D(C4,C5) 
and  the  program's  dat-i  deck  might  look  like 
column  number 

00000000000000000022222222223333333333. . . 
12345678901234567890123456789012345678. . . 

6  4  10  52 

342  16.25  1.5 

-10  0.5  73.4 


Local  Inout/Output  Unit  Specifications 


We  hav«t  at  this  point  examined  all  but  one  of  the  verlatlons  of 
the  READ  and  WRITE  statements.  The  final  feature  is  the  ability  to 
locally  override  current  input  and  current  output  unit  specifications 
declared  in  USE  statements.  This  facility  is  provided  by  the  phrase, 
USING  d,  which  mav  be  attached  to  any  READ  or  WRITE  statement,  as  in 
the  statements 

READ  I,  J  AND  K  AS  I  6 ,/,2  I  3  USING  N 
WRITE  AS  *  USING  7  "SKIPS  TO  A  NEW  PRINTER  PAGE 
WRITE  IDENTIFICATION  AS  *,I  7,/,/,/  USING  H*2 
READ  X  USING  TAPE  12 
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Thia  phrase  acts  Che  current  input  or  output  unit  to  the  indicated 
unit  during  the  statement's  execution,  and  retuma  it  to  ita  previous 
value  on  ita  completion.  The  optional  vorda  TAPE  or  UNIT  can  be 
written  before  Che  unit  number,  if  deaired,  aa  in  the  laat  example. 

A  Final  Remark 

Aa  a  final  remark,  we  explain  a  programming  convenience  that  can 
ahorten  the  number  of  symbols  neceaaarlly  written  when  aeveral  etate- 
menta  contain  identical  format  llata  or  aubllate.  The  DEFINE  TO  MEAN 
statement  may  be  used  to  define  format  atrlnge  and  to  call  upon  them 
"by  name"  in  Che  following  way: 

DEFINE  INTEGER. LIST  TO  MEAN  I  2,2  I  3 

READ  A,B,C  AS  INTEGER. LIST 


WRITE  I.J.K.L.M  AS  INTEGER. LIST,  2  I  10 
The  firat  atatement  la  compiled  aa 
READ  A.B.C,  AS  I  2,2  I  3 


and  the  second  «s 

WRITE  I.J.K.L.M  AS  I  2,2  I  3,2  I  10 
This  is  but  one  of  many  uses  of  the  DEFINE  TO  MEAN  statement. 


S»10  MISCELLASEOUS  IXP'.'T/O'.'TVl 


J-JJ-7  Erd-of- Fi  le  i  i  j n$ 

As  described  in  Sec.  ,  data  can  b«  orKantied  Into  fi-lds  and 

Into  records.  Files  are  often  used  in  magnetic  tap#  applications, 
and  features  ir«  present  In  SINSLtt?T  II  to  assist  in  their  use.  The 
statement  CLOSE  puts  an  I«  ,vir*  «tr  on  the  current  output 

unit.  The  statements 

ADVANCE  e  INPOT  FILES  BACKSPACE  e  INPUT  FILES  and 

ADVANCE  *  OUTPUT  FILES  BACKSPACE  e  OUTPUT  FILES 
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sova  the  current  Input  or  output  unite  forward  or  backward  tha  indi¬ 
cated  number  of  files,  i.e.,  past  s  and-of-filc  Markers.  The  stateaant 

ADVANCE  1  INPUT  FILE 

Biovas  «  unit  tc  the  beginning  of  the  next  file,  in  position  to  read 
the  first  record  In  the  file.  Tht  statement* 

ADVANCE  *  INPUT  FILES  USING  d  BACKSPACE  e  INPUT  FILES  USING  d 

and 

ADVANCE  e  OUTPUT  FILES  USING  d  BACKSPACE  e  OUTPUT  FILES  USING  d 
are  available. 

The  CLOSE,  ADVANCE,  and  BACKSPACE  statements  also  allow  an  optional 
word  before  the  device  specification,  as  in 

CLOSE  TAPE  K 

ADVANCE  2  INPUT  FILES  USING  UNIT  7 

Whenever  a  READ  statement  is  executed,  there  la  a  possibility  of 
running  off  the  end  of  a  data  file.  When  dealing  with  cards,  this  is 
tantamount  to  running  out  of  data,  when  dealing  with  tape  it  is  equiva¬ 
lent  to  running  into  an  end-of-fil.e  marker.  The  free-fom  READ  state¬ 
ment,  as  previously  noted,  provides  a  check  for  an  end-of-flle  condi¬ 
tion  through  the  statement  IF  OATA  IS  ENDED.  A  similar  check  is  needed 
for  formatted  I/O,  and  this  is  provided  through  a  global  variable  and 
a  system  action,  rather  than  through  a  special  statement. 

The  automatically  dtflned  global  variable  EOF.V  ie  initialised 
to  sero  when  •  SIP6CRIFT  II  prograa  Is  begun.  A  progr ameer  can  leave 
the  variable  alone  or  set  it  equal  to  1  in  a  LET  statement.  When  an 
and-of-fiie  marker  la  encountered  &y  a  READ  a  tenement,  the  SIMSCRIPT  II 
eyatea  refers  to  EOF.V  for  action  direction.  If  E0F.V*0,  reading  the 
end-of-file  marker  is  considered  an  error,  and  the  program  terminates 
with  an  error  message .  If  E0f.V"l,  the  variables  in  the  READ  ilet  are 
assigned  values  of  tero,  EOF.V  is  set  to  2,  and  control  returns  to  the 
statement  following  the  READ.  In  other  words,  a  value  of  EOF.VAO  le 
considered  a  massage  to  the  SIJGCRIPT  II  system  Chat  says,  in  effect, 

"Do  not  terminate  my  prograa;  return  zero  values  and  let  me  kne*  that 
I  have  encountered  an  end-of-flle  marker."  By  testing  EOF.V  after  e 
READ  statement,  a  programmer  can  determine  vhethei  the  statement  read 
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trua  data  valuaa  or  encountered  an  end-of-file  Barker.  This  facility 
can  be  uaed  in  the  following  way* : 

(1)  Aa  an  end  of  data  aignal: 

'READ*  READ  X  AS  I  2  USING  TAPE  6 
IF  EOF. V  •  2,  GO  TO  FINISH 
ELSE  ADO  X  TO  SUM  ADO  1  TO  COUNTER 
GO  TO  READ 

'FINISH'  WRITE  COUNTER,  SUM/COUNTER  AS  "THE  AVERAGE  OF", 

I  4, "ITEMS  PROCESSED  IS",D(b,2) 

STOP  END 

(2)  To  tranafer  to  an  error  routine  rather  than  terminate ; 

READ  X  AS  0(10,3) 

IF  EOF. V  -  2,  GO  TO  ERROR. PRINTOUT  ELSE 

3-10-2  Positioning  Tapes ,  I>iskst  and  Dnsns 

A  device  that  hia  been  read  froa,  or  written  on,  is  repositioned 
at  its  starting  point  by  the  statement 

REWIND  d 

The  words  TAPE  and  UNIT  are  optional  aftci  REWIND.  After  a  unit  has 
been  rewound,  it  must  be  "used"  before  it  can  be  read  froa  or  written 
on  again.  A  REWIND  coasund  before  a  unit  has  been  "uaed"  la  Ignored. 

v-10-3  Input/Output  of  Hoy'J'zlmal  Information 

When  Information  Is  used  only  for  transmission  between  coaputers 
or  is  saved  for  subsequent  resubmission  to  a  working  program,  it  need 
not  be  converted  from  its  internal  computer  rep: esentation  to  "human- 
readable"  fora.  A  much  core  efficient  direct  transfer  of  Information 
can  be  obtained  without  formatting  through  the  statements 

READ  variable  list  AS  BINARY  and 
WRITE  iri  ihneiio  expression  list  AS  BINARY 

where  a  current  unit  is  implied,  or  through  the  statements 

READ  variable  list  AS  BINARY  USING  d  and 
WRITE  ariihnstio  expression  list  AS  BINARY  USING  d 

where  e  unit  is  specified.  These  statements  ere  especlsllv  useful 
for  storing  intermediate  reaults  too  voluminous  to  keep  in  core  on 
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tape,  or  disk,  and  for  reading  them  back  when  they  are  needed.  Binary 
and  formatted  data  cannot  be  written  together  on  the  same  device.  The 
following  program  shows  how  to  save  a  computed  array,  release  it  for 
other  use,  and,  at  a  later  time,  reuse  the  array  values: 

PREAMBLE  DEFINE  ARRAY  AS  A  2-DIMENSIONAL  ARRAY 

NORMALLY,  MODE  IS  INTEGER 

END 


MAIN 

READ  N  "FREE- FORM  READ 

RESERVE  ARRAY (*,*)  AS  N  BY  N 


computations  assigning  values 
to  the  elements  of  ARRAY 


FOR  1=1  TO  N,  FOR  J=1  TO  N,  WRITE  ARRAY ( I, J)  AS  BINARY  USING  TAPE  1 
REWIND  TAPE  1 
RELEASE  APRAY(V) 


statements  that  use  the  released 
memory  space  and  then  give  it  up 


RESERVE  ARRAY{*,*'  AS  N  BY  N 
USE  TAPE  1  FOR  INPUT 

FOR  1=1  TO  N,  FOR  J=1  TO  H,  READ  ARRAY ( I ,J)  AS  BINARY 


additional  computations  and  output 


STOP  END 

*  3-11  INTERNAL  EDITING  OF  INFORMATION 

The  SIMSCRIPT  II  system  has  one  buffer  for  each  input/output 
device.  The  size  of  each  buffer  varies,  depending  upon  the  use  of 
the  unit  (input  or  output,  formatted,  or  free-fcrm)  and  the  medium 
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used  (cards,  tape,  printer).  All  reading  and  writing  occurs  through 
these  bufters.  Both  the  cunent  input  pointer  (RCCLUMN.V)  and  current 
output  pointer  (WCOLUMN.V)  travel  along  the  buffers,  point  to  the  last 
accessed  character,  and  read  or  write  physically  when  a  /  format  is 
encountered  or  the  end  of  a  buffer  is  reached. 

The  current  output  buffer  is  called  OUT.F,  and  can  be  accessed 
as  an  ALPHA  function.  OUT.F(I)  refers  to  the  first  character  in  the 
buffer,  OUT.F(IO)  to  the  tenth  character,  0UT.F(132)  to  i1:  last 
character.^  As  a  computer  word  contains  more  than  one  alphanumeric 
character  and  the  OUT.F  function  returns  only  one  character,  the  value 
of  OUT.F  is  a  left-adjusted  ALPHA  word;  e.g.,  if  the  first  buffer 
position  contains  the  letter  A  and  each  word  can  hold  four  ALPHA 
characters,  the  value  of  0UT.F{1)  is  A  It  is  possible  to  edit 

output  information  by  inserting  alphanumeric  or  numeric  data  directly 
into  the  buffer.  When  a  new  record  is  begun,  by  either  a  START  NEW 
statement  or  a  /  format  descriptor,  the  buffer  is  emptied  and  filled 
as  the  ensuing  formats  dictate.  Thus,  the  statement 

WRITE  X  AS  /."THE  BUFFER  CONTAINS", I  3,"  CHARACTERS" 

empties  the  buffer  (OUT.F(l)  through  OUT . F ( 1 32 )  now  contain  blanks) 
and  inserts  the  characters  THE  BUFFER  CONTAINS  in  OUT.F(l)  through 
0UT.F(19),  the  value  of  X  in  0UT.F(20)  through  OUT.F(22)  and  the 
characters  _CHARACTERS  in  0UT.F(23)  through  0UT.F{33).  To  change  the 
buffer  so  that  the  string  reads  THE. BUFFER. CONTAINS. 33. CHARACTERS 
(assume  X=33) ,  one  could  write  the  program 

FOR  1=1  TO  131,  UNTIL  0UT.F(I)="  "  AND  OUT. F(I+1 )="  " 

DO  IF  OUT. F( I )  =  ’’  ",  LET  OUT. F( J)=". " 

ELSE 

LOOP 

o’-,  on  realizing  that  WCOLUMN.V  points  to  the  last  character  written 
into  the  buffer,  one  could  write 

^Assuming  an  output  buffer  of  132  characters. 

In  this  section  a  blank  character  is  represented  by  an  underscore. 
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FOR  1-1  TO  WCOLUMN.V, 

DO  IF  OUT.F(I)-"  \  LET  OUT.F(I)*"." 

ELSE 

LOOP 

If  numbers  representing  dollar  amounts  are  written,  dollar  signs 
($)  can  be  put  before  the  first  digit  of  each  number  in  a  similar  way: 

FOR  1*1  TO  WCOLUMN.V, 

00  IF  0UT.F{I)-"  "  AND  OUT. F(  1+1  ", 

LET  OUT. F{ I )*"$", 

ELSE 

LOOP 

A  special  internal  buffer  called  THE  BUFFER  can  be  used  for  data 
editing  with  READ  and  WRITE  statements.  The  length  of  THE  BUFFER  is 
specified  by  the  system  global  variable  BUFFER. V.  Space  is  allocated 
to  THE  BUFFER  by  the  statements 

USE  THE  BUFFER  FOR  INPUT  and 

USE  THE  BUFFER  FOR  OUTPUT 

or  the  statements 

WRITE  expression  list  AS  forrat  list  USING  THE  BUFFER  and 
READ  variable  list  AS  fomat  list  USING  THE  BUFFER 

BUFFER. V  has  a  default  value  of  132.  It  can  be  set  to  a  different 
value  before  its  first  USE. 

The  examples  below  illustrate  how  mode  conversion  is  executed  in 
the  internal  buffer. 

(1)  In  this  procedure,  X  is  an  INTEGER  variable  and  A  is  ALPHA, 
X-100,  and  each  ALPHA  word  can  hold  four  characters;  the  initial 
value  of  A  is  irrelevant. 

WRITE  X  AS  /,  I  4  USING  THE  BUFFER 

This  statement  sets  the  internal  buffer  to: 


[_o. 

fin 

□ 

□ 

□ 

rrr 

1  2 

3 

4 

5 

T  1  -  1  T  . 

131  132 

Note  that  /  clears  THE  BUFFER  and  sets  the  current  output  pointer  to 
its  first  position.  The  statement 
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READ  A  USING  THE  BUFFER 

executes  a  free-form  read  from  the  Internal  buffer,  left-adjusting  the 
value  read  so  that  the  stored  value  of  A  looks  like 


(2)  If  the  initial  characters  of  four  ALPHA  variables  are  to  be 
merged  to  form  a  new  ALPHA  value,  one  can  write 

WRITE  A( 1 ) ,A(2) ,A{3) ,A(4)  AS  4  A  1  USING  THE  BUFFER 
READ  NEW  AS  A  4  USING  THE  BUFFER 

3-12  WRITING  FORMATTED  REPORTS 

The  PRINT  statement  that  we  have  been  using  since  Sec.  1-11  has 
functioned  as  both  a  simple  mechanism  for  displaying  short  error  mes¬ 
sages  and  as  a  more  complex  report  layout  statement  (Sec.  1-16-1 ). 
This  section  adds  two  phrases  to  the  PRINT  statement  and  introduces 
two  control  statements  to  provide  a  full-fledged  report  generator 
capability. 

These  new  features  permit  a  programmer  to  specify  the  layout  of 
printed  results,  to  control  the  printing  of  headings  and  titles,  to 
eject  pages  between  various  report  sections,  and  to  arrange  "wide 
reports"  on  standard-width  paper.  Figure  3-1  illustrates  the  kind  of 
complex  report  that  can  be  generated. 

The  statement  BEGIN  REPORT  marks  the  start  of  a  report  section 
within  which  various  kinds  of  control  can  be  exercised.  A  report 
section,  like  a  routine,  is  terminated  by  an  END  statement.  The 
statements 

BEGIN  REPORT 

FOR  1=1  TO  N,  PRINT  1  LINE  WITH  I ,X( I)  THUS 

**  **  *** 

END 

lllustrote  a  simple  report  section  that  merely  marks  off  a  controlled 
output  statement.  The  report  section  prints  N  lines  containing  two 
values  each.  If  the  output  is  to  be  labeled,  the  program  can  be 
written  as 


180 


oooooooooooooooo 


000000000000000 


oooooooooooooooo 


An  illustrative  management  report 
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BEGIN  REPORT 

PRINT  1  LINE  AS  FOLLOWS 
I  X(I) 

FOR  1*1  TO  N,  PRINT  1  LINE  WITH  I,X(I)  THUS 
**  ***** 

END 

This  prints  a  heading  above  the  N  lines  of  output  that  identify  the 
displayed  values.  If  N  is  large  and  the  output  continues  on  more 
than  one  page,  only  the  results  on  the  first  page  are  labeled.  All 
other  pages  are  untitled. 

A  heading  section  may  be  defined  within  a  report  section  so  that 
titles  are  printed  and  any  necessary  computation  performed  whenever 
a  page  is  ejected.  A  heading  section  is  started  by  the  statement 
BEGIN  HEADING  and  ended  by  the  statement  END.  All  statements  between 
a  BEGIN  HEADING  and  its  matching  END  are  executed  whenever  a  page  is 
ejected  by  an  output  statement  within  an  enclosing  report  section, 
but  after  the  heading  section  itself. 

To  title  all  pages  of  output  in  the  foregoing  example,  the  program 
can  be  written  as 

BEGIN  REPORT 

DEGIN  HEADING 

PRINT  1  LINE  AS  FOLLOWS 
I  X(I) 

END  ' '  HEADING  SECTION 

FOR  1=1  TO  N,  PRINT  1  LINE  WITH  I,  X(T)  THUS 
**  **  *** 

END 

The  statements  in  a  heading  section  are  executed  the  first  time 
they  are  encountered  and  thereafter  every  time  a  page  is  changed. 

Pages  are  changed  whenever  the  current  line  count  exceeds  the  number 
of  printed  lines  a  page  c  m  contain.  The  system  variables  LINE.V 
and  LINES, V  have  the  values  of  the  current  line  count  and  the  permitted 
number  of  lines  per  page,  respectively.  LINE.V  is  initialized  to  1 
when  an  output  device  is  first  USED;  it  is  stepped  from  1  to  the  cur¬ 
rent  value  of  LINES. V  each  time  a  new  line  is  printed.  A  separate 
count  of  LINE.V  is  kept  for  each  output  device.  LINES. V  may  be  changed 
by  a  programmer  at  any  time  to  vary  the  number  of  lines  that  appear 
on  each  output  page.  The  SIMSCRIFf  II  system  automatically  sets 
LINES. V*  55  at  the  start  of  each  program's  execution. 


-182- 


Pages  are  numbered  sequentially,  beginning  with  1,  with  the  num¬ 
ber  of  the  page  currently  belug  written  contained  in  the  system  vari¬ 
able  PAGE.V.  As  with  LINE.V,  a  separate  count  of  PAGE.V  is  kept  for 
each  output  device.  PAGE.V  may  be  reset  at  any  time.  When  this  is 
done,  numbering  continues  in  sequence  from  the  new  value.  PAGE.V  and 
LINE.V  always  refer  to  the  current  output  unit. 

Within  a  heading  section,  the  statement 

IF  PAGE  IS  FIRST 


may  be  used  to  select  statements  to  be  executed  only  on  the  first  page 
of  a  report  section's  output.  The  following  program  illustrates  one 
way  of  using  the  report  facilities  described  thus  far: 

PREAMBLE 

NORMALLY,  MODE  IS  INTEGER 
END 


MAIN  'DATA'  READ  LINES. V,  N,  UNIT 

IF  LINES. V  IS  NOT  ZERO,  CALL  DISPLAY(N,UNIT) 

GO  TO  DATA 

ELSE  STOP 

END 


ROUTINE  TO  DISPLAY  (M.U) 

USE  U  FOR  OUTPUT 
LET  PAGE.V-  1 
BEGIN  REPORT  "  SECTION 
BEGIN  HEADING  ' '  SECTION 
IF  PAGE  IS  FIRST, 

PRINT  1  LINE  AS  FOLLOWS 
TABULATION  OF  MATHEMATICAL  FUNCTIONS 
SKIP  3  OUTPUT  LINES 
REGARDLESS 

PRINT  1  LINE  WITH  PAGE.V  AS  FOLLOWS 

PAGE  NO.  ** 

SKIP  2  OUTPUT  LINES 
PRINT  1  LINE  AS  FOLLOWS 
I  SQRT(I)  I  SQ  LOG(I) 

SKIP  1  OUTPUT  LINE 
END  "HEADING  SECTION 
FOR  J-  1  TO  M,  PRINT  1  LINE  WITH  J, 
SQRT.F(J) ,  J**2,L0G.10.F(J)  THUS 
**  ****  *++* 

END  ' '  REPORT  SECTION 
END  "  ROUTINE  DISPLAY 
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The  Above  program  (1)  in  its  MAIN  routine  reads  in  control  infor¬ 
mation  and  (2)  in  its  DISPLAY  routine  uses  a  report  section  to  prepare 
a  labeled  output  display.  The  variable  LINES. V  is  used  both  to  control 
the  number  of  lines  printed  per  page  in  successive  reports  and  to 
terminate  the  program. 

Within  the  routine  DISPLAY,  an  output  unit  is  selected  outside 
the  report  section  and  PAGE.V  is  set  to  1.  This  enables  each  report 
to  be  printed  on  a  separate  device,  if  desired,  and  sets  the  number 
of  the  first  page  of  each  report  to  1.  Within  the  report  section 
SKIP  statements  are  used  to  separate  heading  information. 

If  the  data  read  by  this  program  are  the  sequence  of  values  50, 
100,  5,  20,  40,  6,  0,  0,  0,  two  reports  will  be  printed.  The  first 

A 

will  display  the  values  of  j,  j  ,  and  log(J)  for  j«l,2, . . . ,100  on 
three  pages  of  output  unit  5.  If  we  assume  that  printing  starts  at 
the  top  of  the  first  page,  it  will  contain  the  heading  TABULATION  OF 
MATHEMATICAL  FUNCTIONS,  the  page  number,  the  heading  I  SQRT(I)  I  SQ 
L0G(I)  and  values  for  J»l,2,. . . ,41.  The  second  page  will  contain  the 
page  number,  the  heading  I  SQRT(I)  I  SQ  LOG(I)  and  values  for  J-  42, 

44,  86.  The  third  page  will  resemble  the  second,  except  that  it 

will  contain  values  for  J  »  87,89,  . ..,  100. 

The  second  report  will  be  similar  to  the  first,  except  that  it 
will  display  values  for  J  •  1,  2,  ...,  40  on  pages  that  contain  only 
20  lines.  The  heading  TABULATION  OF  MATHEMATICAL  FUNCTIONS  will  be 
printed  on  the  current  page,  renumbered  1,  of  output  unit  6. 

Whenever  it  is  necessary  to  begin  each  report  section  on  a  new 
page,  as  might  be  done  in  this  example,  the  BEGIN  REPORT  statement 
can  be  written  as 

BEGIN  REPORT  ON  A  NEW  PAGE 

which  ejects  a  page  on  the  current  output  device  unless  the  current 
page  has  not  been  written  on  (LINE.V*  1,  WCOLUMN.V*  0).  This  prevents 
blank  page*  from  being  ejected  between  renorts. 

The  form  of  a  "typical"  report  using  the  statements  described 
thus  far  is 
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BEGIN  REPORT  ON  A  NEW  PAGE 


program  statements 


BEGIN  HEADING 

IF  PAGE  IS  FIRST,  ...  ELSE 

SKIP  N  LINES 

END”  HEADING 


program  statements 


END”  REPORT 

wit!  the  variables  LINE.V  and  PAGE.V  being  used  In  computational, 
decisionmaking,  and  output  statements.  PRINT  statements  appear  in 
heading  and  report  sections,  and  usually  are  controlled  by  FOR  or 
WHILE  statements  in  the  part  of  the  report  section  labeled  "program 
statements."  The  flow  of  control  in  a  report  section  such  as  appears 
on  this  page  is  as  follows: 

(1)  Execute  statements  between  BEGIN  REPORT  and  BEGIN 
HEADING,  if  any; 

(2)  Execute  statements  in  the  heading  section,  if  any; 

(3)  Execute  statements  between  END”HEADING  and  END” 

REPORT  if  any,  executing  statements  in  the  heading 
section  every  time  a  page  is  changed. 

These  statements  are  adequate  for  miny  reports.  A  report  for 
which  they  are  not  suited  is  one  that  must  print  more  than  80  columns 
of  information  per  line.  Adding  the  vord  DOUBLE  to  a  PRINT  statement 
in  the  following  way 
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PRINT  1  DOUBLE  LINES  WITH  expression  list  THUS 

specifies  chat  2i,  rather  than  i,  format  lines  follow  that  are  to  be 
read  in  pairs  and  Interpreted  as  one  format  line  160  columns  long. 

To  fill  an  entire  line  on  a  printer  132  columns  wide,  one  would  write 
a  statement  as 

PRINT  1  DOUBLE  LINE  AS  FOLLOWS 


AAAAAAAAAAAAA . AAAAAA 

AAAAAAAAAA . AAAAAAAAAA 


The  first  format  card  has  an  A  punched  in  each  of  its  80  columns;  the 
second  format  card  has  an  A  punched  in  its  first  52  columns.  "Double 
width"  PRINT  statements  are  not  restricted  to  report  sections.  Any 
PRINT  statement  can  be  expanded  to  double  width. 

The  inclusion  of  an  optional  clause  in  the  BEGIN  REPORT  and 
PRINT  statements  adds  one  more  Important  report-generation  feature. 
Figure  3-2  shows  the  kind  of  report  the  clauses  handle,  reports  that 
have  rows  of  data  with  more  items  in  each  row  than  a  single  page  can 
contain. 

In  preparing  reports  of  this  kind,  a  series  of  pages  is  printed 
with  different  column  Indices.  In  Fig.  3-2,  pages  1  and  2  are  printed 
with  column  indices  ranging  from  1  to  50,  and  pages  3  and  4  are  printed 
with  column  indices  ranging  from  51  to  100.  This  feature,  specifying 
an  iteration  sequence  for  column  Indices  and  having  pages  printed 
that,  when  separated  and  put  together  side-by-sid»  look  like  printing 
on  a  wide  page,  is  known  as  oolum  repetition .  It  is  specified  by 
an  optional  clause  in  the  BEGIN  REPORT  statement 

BEGIN  REPORT  PRINTING  for  IN  GROUPS  OF  e  PER  PAGE 

The  word  for  represents  a  FOR,  WHILE,  or  UNTIL  statement,  perhaps 
qualified,  that  generates  column  indices.  The  arithmetic  expression 
e  specifies  the  number  of  indices  In  this  iteration  sequence  to  be 
used  on  each  page.  Thus,  the  statement 

BEGIN  REPORT  PRINTING  FOR  I  -  1  TO  50  IN  GROUPS  OF  10  PER  PAGE 


specifies  that  five  sets  of  column  indices  will  be  used  for  five  ex¬ 
ecutions  of  *  report  section.  The  report  section  will  be  executed 
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Fig.  3-2  --  A  report  using  row  and  column  repetition 


first  with  I"  1, 2,3,4, 5, 6, 7,8,9,  and  10;  aecond  with  I-  11 , 12 , . . . , 20; 

. and  fifth  with  I*  41,42 . 50.  Tha  index  values  ere  not  given 

to  the  report  section  individually,  but  in  groups  that  are  used  all 
at  once  by  a  special  verelon  of  the  PRINT  statement. 

If  a  controlling  for  phrase  in  a  BEGIN  REPORT  statement  Is  emptv 
i.e.,  produces  no  values,  the  entire  report  section  headed  by  this 
statement  Is  skipped,  e.g.,  FOR  1*1  TO  4,  WITH  X ( I )  0 ,  end  no  X(I) 

Is  greater  than  0. 

The  groups  of  Iteration  values  are  used  In  a  PRINT  statement  by 
a  clause  specifying  that  a  group  of  values  are  to  be  printed  using 
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Che  Indices  generated  by  a  preceding  BEGIN  REPORT  statement.  The 
following  example  llluet rates  one  such  use : 

8E6IN  REPORT  PRINTING  FOR  J-  I  TO  25  IN  GROUPS  OF  5 
PER  PAGE 
BEGIN  HEAOING 

PRINT  1  LINE  WITH  A  GROUP  OF  J  FIELDS  THUS 

*  *  *  *  * 

SKIP  1  OUTPUT  LINE 
END  HEADING 

FOR  I-  I  TO  6,  PRINT  1  LINE  WITH  A  GROUP  OF 

X(I,J)  FIELDS  THUS 

********** 

END  REPORT 

This  program  generates  four  pages  of  output.  Page  1  uses  the  first 
five  values  of  J.  A  heading  dlaplays  the  values  of  J,  and  a  row 
repetition  stateaent  prints  the  values  of  X(I,J)  for  those  values  of 
J  and  I"  1 .2,3,4, 5,6.  Figure  3-3  illustrates  how  such  a  page  night 
appear. 


Fig.  3-3  --  Column  repetition, 

PA9«  I 

Page  2,  Fig.  3-4,  looks  exactly  like  page  1  in  for*,  but  uses 
the  second  five  values  of  J  to  select  values  for  diaplay. 

Pagea  3,  4,  and  3  are  eimilar,  vtth  page  )  using  J*ll,...,i5, 
snd  page  4  using  J*  16,. ..,70,  stc. 

The  phrase  A  GROUP  OF  FIELDS  In  e  ^RINT  ecat^ne-it  notifies  the 
coapller  that  »  sequence  of  Index  values  generated  for  the  enclosing 
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the  indices  generated  by  a  preceding  BEGIN  REPORT  statement.  The 
following  example  Illustrates  one  such  use: 

BEGIN  REPORT  PRINTING  FOR  J-  I  TO  25  IN  GROUPS  OF  5 
PER  PAGE 
BEGIN  HEADING 

PRINT  1  LINE  WITH  A  GROUP  OF  J  FIELDS  THUS 

***** 

SKIP  1  OUTPUT  LINE 
END  HEADiNG 

FOR  I*  1  TO  5,  PRINT  1  LINE  WITH  A  GROUP  OF 
X(I,J)  FIELDS  THUS 
**  **  **  **  ** 

END  REPOki 

This  program  generates  four  pages  of  output.  Page  1  uses  the  first 
five  values  of  J.  A  heading  displays  the  values  of  J,  and  a  row 
repetition  statement  prints  the  values  of  X(I,J)  for  those  values  of 

J  and  I*  1,2, 3, 4, 3, 6.  Figure  3-3  illustrates  how  such  a  page  might 
appear. 


1  2  3  4  5 

********** 

-i  I  XU-  -i--i  «  ■ 

wUr  eTi  wFPC 

********** 
********** 
**  ******** 
**  **  **  **  ** 


Fig.  3-3  —  Column  repetition, 
page  1 


Page  2,  Fig.  3-4,  looks  exactly  like  page  1  in  form,  but  uses 
the  second  five  values  of  J  to  select  values  for  display. 

Pages  3,  4,  and  5  are  similar,  with  page  3  using  J*ll,...,15, 
and  page  4  using  J«  16,..., 20,  etc. 

The  phrase  A  GROUP  OF  _  FIELDS  in  a  PRINT  statement  notifies  the 
compiler  that  a  sequence  of  index  values  generated  for  the  enclosing 
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All  repeated  formats  need  not  be  Identical,  e.g.,  *  and  **,  but  they 
must  be  of  the  same  mode. 

If  It  Is  not  necessary  that  each  set  of  column  repetition  groups 
start  on  a  new  page,  the  PER  PAGE  clause  may  be  omitted  from  the 
BEGIN  REPORT  statement.  The  following  report  section  uses  this  fea¬ 
ture  to  display  a  matrix  containing  more  columns  than  can  be  put  on 
one  line: 

FOR  1*1  TO  N,  DO 
PRINT  1  LINE  WITH  I  AS  FOLLOWS 
ROW  ** 

BEGIN  REPOPJ  PRINTING-  FOR  J*  1  TO  M  IN  GROUPS  OF  24 

PRINT  1  LINE  WITH  A  GROUP  OF  X(I,J)  FIELDS  THUS 

************************ 

END”  REPORT 
SKIP  2  LINES 
LOOP 


Such  a  program  produces  a  report  that,  for  M=  50,  looks  like  Pig.  3-5. 


ROW  1 

************************ 
************************ 
*  * 

ROW  2 

************************ 
************************ 
*  * 


Fig.  3-5  —  An  example  of  column  repetition 


Note  that  the  total  number  of  column  indices  generated  need  not  be  an 
even  multiple  of  the  group  size,  e.g.,  50  and  24  above. 

A  final  feature  makes  it  possible  to  generate  attractively  labeled 
reports  that  have  row,  as  well  as  column,  summarizations,  even  if  the 
reports  use  column  repetition.  This  is  done  by  adding  a  clause  to 
tl.e  PRINT  statement  that  suppresses  some  output  until  all  column 
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repetition  data  have  been  printed.  A  typical  statement  using  this 
feature  will  look  as  follows: 

BEGIN  REPORT  PRINTING 

FOR  J-  1  TO  M  IN  GROUPS  OF  10  PER  PAGE 

PRINT  1  LINE  WITH  A  GROUP  OF  X(I,J)  FIELDS, 

SUHX(I)  SUPPRESSING  FROM  COLUMN  70  AS  FOLLOWS 

♦  *♦**★*★**  **** 

t 

Column  70 

If  M*30,  three  sets  of  column  indices  will  be  generated;  the  above 
format  line  will  be  repeated  three  times,  on  three  separate  pages. 
Only  on  the  last  page,  however,  will  the  last  format  be  used,  and 
the  value  SUMX(I)  printed.  The  SUPPRESSING  clause  specifies  that 
all  formats  from  column  70  on  are  to  be  inhibited  until  all  column 
index  values  have  been  used.  This  includes  both  data  and  textual 
material.  The  three  pages  printed  by  the  above  statements  are  shown 
in  Fig.  3-6. 

The  program  in  Fig.  3-7  generates  the  report  shown  in  Fig.  3-1 
and  illustrates  the  statements  of  this  section.  The  program  is  shown 
as  it  would  appear  on  punched  cards.  When  writing  reports,  wider 
paper  is  recommended.  Double-length  formats  can  be  written  across 
a  page  and  cards  punched  from  them. 
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Card  Column 


0000000001 111111111 2222222222333333333344444444445555555555666666666677777777778 
12345678901234567890123456789012345678901234567890123456789012345678901234567890 

LET  PAGE. V*1 

BEGIN  REPORT  ON  A  NEW  PAGE  PRINTING  FOR  DEPOTS  TO  60  IN  GROUPS  OF  24  PER  PAGE 
BEGIN  HEADING 

PRINT  1  DOUBLE  LINE  WITH  PAGE.V  AS  FOLLOWS 
PAGE  * 

PRINT  i  LINE  AS  FOLLOWS 

DEPOT  TO  BASE  SHIPMENTS 

SKIP  1  OUTPUT  LINE 

PRINT  1  DOUBLE  LINE  WITH  A  GROUP  OF  DEPOT  FIELDS  SUPPRESSING  FROM  COLUMN  91  THUS 
DEPOT  **  **  **  **  ★★  **  **  **  **  **  **  **  **  *★  **  **  **  **  **  **  **  **  ** 

TOTAL 

PRINT  1  LINE  AS  FOLLOWS 
BASE 

END  "HEADING 

FOR  BASE*1  TO  120,  PRINT  1  DOUBLE  LINE  WITH  BASE,  A  GROUP  OF  SHIP(BASE, DEPOT) 

FIELDS,  TOT (BASE)  SUPPRESSING  FROM  COLUMN  92  AS  FOLLOWS 
**  ************************ 

SKIP  1  OUTPUT  LINE 

PRINT  1  DOUBLE  LINE  WITH  A  GROUP  OF  SUM(DEPOT)  FIELDS,  GRAND  SUPPRESSING  FROM 
COLUMN  92  AS  FOLLOWS 

TOTAL  **  **  **  **  **  **  **  *"*  **  **  **  **  **  **  **  **  **  **  **  **  **  **  **  ** 
*** 

END 


Fig.  3-7  —  A  report  generator  program 
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Chapter  4 

SIMSCRIPT  II:  LEVEL  4 


4-00  INTRODUCTION 

Thus  far  we  have  dealt  with  an  algebraic  language.  While  having 
features  that  ere  clearly  noncomputational,  such  as  ALPHA  mode,  the 
majority  of  the  statements  have  had  a  computational  or  lnput/output 
flavor.  This  section  adds  a  new  dimension  to  SIMSCRIPT  II  by  providing 
language  statements  that  are  (1)  oriented  to  problem  definition  and 
modeling,  and  that  (2)  manipulate  data  structures  more  complex  than 
simple  variables  and  arrays. 

The  section  is  roughly  organized  Into  three  parts:  definition, 
organization,  and  manipulation.  First,  definitions  are  provided  for 
the  three  constituents  of  the  SIMSCRIPT  II  world  view:  entitles, 
attributes,  and  sets.  Next,  the  relationships  between  these  constitu¬ 
ents  are  discussed,  with  special  mention  made  of  how  they  are  organized. 
Finally,  statements  that  use  these  constituents  to  perform  particularly 
useful  functions  are  presented. 

4-01  ENTITIES  AND  ATTRIBUTES 

While  subscripted  and  unsubscripted  variables  are  adequate  for 
most  procedural  programming  problems,  c.g.,  algebraic  calculations 
for  scientific  and  business  applications,  variables  are  inadequate 
as  basic  language  constructs  for  a  large  class  of  modeling  problems. 

The  inadequacy  stems  from  two  sources:  (1)  the  need  for  more  organiza¬ 
tional  structure  than  simple  arrays  afford,  and  (2)  the  lack  of  clarity 
of  programs  written  within  the  descriptive  limits  of  variable  name  and 


-194- 


subscript  expression  conventions.  While  the  first  limitation  is 
certainly  the  stronger,  insofar  as  Inadequate  structure  imposes  con¬ 
ceptual  limitations,  the  benefits  of  descriptive  notation  cannot  be 
minimized.  SIMSCRIPT  IX  provides  needed  structure  and  narrative 
clarity  through  statements  that  define  and  manipulate  entities, 
attributes,  and  sets. 

An  entity  is  a  program  element,  much  like  a  variable,  that  exists 
in  a  modeled  system.  It  is  like  a  subscripted  variable  in  that  it 
has  values ,  called  attributes ,  associated  with  it  that,  vhen  assigned 
specific  values,  define  a  particular  configuration  or  state  of  the 
entity.  Urllke  subscripted  variables,  entities  have  their  attributes 
named,  not  numbered,  enhancing  model  description.  For  example,  in 
Levels  1-3  a  collection  of  ten  men  having  the  attributes  of  age,  num¬ 
ber  of  dependents,  and  social  security  number  may  be  described  by  a 
two-dimensional  array  defined  as  follows: 

RESERVE  MAN  AS  3  BY  10 

with  the  understanding  that  MAN (1,4)  represents  the  age  of  the  fourth 
man,  MAN(3,t»)  the  social  security  number  of  the  sixth  man,  etc., 
according  to  the  layout: 


AGE 

DEPENDENTS 

SOC.SEC 


10 


1  2 


Level  4,  however,  permits  the  entity  MAN  to  be  defined  by  the  statement 

EVERY  MAN  HAS  AN  AGE,  A  NU*ER. OF. DEPENDENTS 
AND  A  SOCIAL. SECURITY. NUMBER 

and  a  particular  man's  attributes  to  be  accessed  by  references  such 
as  AGE (MAN)  and  SOCIAL. SECURITY. NUMBER(MAN) .  A  particular  man  is 
specified  by  the  value  of  the  variable  MAN.  Thus,  the  EVERY  statement 
defines  a  class  of  objects ,  each  called  MAN,  having  similar  properties. 
Every  MAN,  of  which  there  may  be  many,  has  the  same  attributes. 
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Entities  and  Chair  attributes  arc  dadarad  in  a  prograa  praaabla 
by  statements  of  Cha  general  fora 

EVERY  entity  none  HAS  AN  attribute  name  list 

Entity  and  attribute  naaee  follow  the  saae  naming  convention  aa  vari¬ 
ables  and  routines  and  each  variable,  entity,  attribute,  and  routine 
name  oust  be  unique.  To  assist  in  the  creation  of  readable  programs, 
the  words  A,  THE,  and  SOME  can  be  used  in  place  of  AN,  as  in 

EVERY  MAN  HAS  AN  AGE,  SOME  DEPENDENTS  AND  A 
SOCIAL. SECURITY. NUMBER 

Entity  declarations  implicitly  state  that  attributes  occupy  specific 
locations  in  entity  records.  The  above  declaration  states  that  the 
value  of  AGE  is  to  be  found  in  word  1  of  a  MAN  record,  the  value  of 
DEPENDENTS  in  word  2,  etc.  Each  MAN  record  can  be  pictured  as 

MAN 

value  of  AGE 

value  of~DEPENOENTS 

value  of  SOCIAL. SECURITY. NUMBER 


and  the  form  AGE (MAN)  can  be  translated  into  "the  value  found  In  the 
first  word  of  the  record  indsxed  by  the  value  MAN."  Since  attribute 
names  specify  relative  locations  of  values  in  entity  records,  no  two 
entitles  can  have  an  attribute  with  the  same  name  placed  in  different 
words  within  the  two  entity  records.  The  statements 

EVERY  1-tAN  HAS  AN  AGE 
EVERY  WOMAN  HAS  AN  AGE 

specify  a  amson  attribute ,  AGE,  correctly;  the  statements 
EVERY  MAN  HAS  AN  AGE 

EVERY  WOMAN  HAS  SOME  DEPENDENTS  AND  AN  AGE 


do  not.  Sections  4-0$  and  4-04  discuss  antltv  types  and  entity  declara¬ 
tions  more  fully,  and  clarify  the  notion  of  an  "entity  index"  referred 
to  above. 
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4-02  SETS 

If  attributes  were  the  only  modeling  feature  offered ,  It  la 
doubtful  whether  this  level  would  make  a  major  contribution  to  model¬ 
ing.  While  they  provide  considerable  descriptive  power  through  the 
attribute  name  (entity  name)  notation,  the  use  of  attribute  values  to 
relate  entitles  to  one  another  Is  probably  their  overriding  contribution. 

Consider  the  following  situation:  Over  the  ytars,  a  group  of  men 
living  In  one  coamunlty  join  various  clubs  and  lodges.  As  men  are 
born,  grow  up,  remain  In  or  move  out  of  the  cotmnunity,  and  die,  the 
lodge  and  club  memberships  change.  To  model  the  relationships  that 
exist  between  the  men  of  the  coamunlty,  both  over  time  and  at  particular 
Instants  of  time,  we  require  some  way  of  grouping  the  individual  lodge 
and  club  members  together.  Such  a  grouping  Is  defined  by  the  state¬ 
ments: 

EVERY  COMMUNITY  OWNS  A  MASONS, AN  ELKS  AND  A 
BOY. SCOUTS 

EVERY  MAN  MAY  BELONG  TO  THE  MASONS, THE  ELKS 
AND  THE  BOY.SCOJTS 

The  first  statement  declares  that  each  entity  of  the  class  COMMUNITY 

owns  a  set  called  MASONS,  a  set  called  ELKS,  and  a  set  called 

BOY. SCOUTS.  Each  of  these  sets  corresponds  to  a  logical  grouping 

of  men  in  the  community.  This  statement  does  not  specify  which  men 

belong  to  the  particular  sets;  rather,  it  establishes  a  system  of 

set  pointer  and  set  attributes  for  the  owner  entities  that  enable 

set  memberships  to  be  constructed.  Each  COMMUNITY  Is  given  a  logical 
+• 

entity  record  with  the  following  attributes  automatically  defined: 


Since  particular  SIMSCRIPT  II  implementations  may  store  entity 
data  differently  and  there  are  actually  two  different  types  of  en¬ 
titles,  the  logical  rather  than  physical  aspects  of  entity-attribute 

associations  are  stressed. 
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COHIUNITY 

F.  MASONS  ~ 
L. MASONS 
F.ELKS 
L.ELKS 
F. BOY. SCOOTS 
L.  BOY.  SCOOTS, 


The  attribute*  starting  wl th  F.  ere  set  pointer*  that  point  to  the 
first  member  of  the  respective  sets.  The  attributes  starting  with  L. 
are  set  pointer*  that  point  to  the  last  member  of  the  respective  sets. 
The  set  members,  a*  we  shall  see,  point  to  one  another,  defining  their 
interrelationships  and  making  the  connection  between  the  set  owner  and 
the  set  members  complete. 

The  second  statement  declares  that  each  entity  of  the  class  MAN 
nay  belong  to  sets  called  MASONS,  ELKS  and  BOY. SCOOTS.  It  Is  Impor¬ 
tant  to  note  that  membership  is  declared  as  possible  in  this  statement 
and  not  made  mandatory.  As  might  he  expected,  this  statement  auto¬ 
matically  defines  set  attributes  for  member  ent.tles: 

MAN 

P. MASONS 

S. MASONS 
— - - - - — - 

P .  ELKS 

S.ELKS 

p. boy, scouts 
s. ao y. SCOUTS 

The  attributes  starting  with  P.  are  set  pointer#  pointing  to  the 
pr*  in  the  Indicated  set;  the  attributes  starting  with 

S.  are  set  pointers  pointing  to  th#  i iu-'-v##cr  In  fie  indicated 

set.  The  concerts  of  predecessor  and  successor ,  as  wel.  a*-  *ir»t  and 
last,  can  be  beet  explained  by  a.:  1 1 1  ua  t  ra  1 1  on .  In  Fig.  --  the 


—****■**" V  **•*%£ 
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entity  COMMUNITY  owns  one  set  called  MASONS,  The  members  of  the  set 
sre  entlfas  of  the  class  MAN.  The  entity-set  relationships  are 
defined  by  the  statements: 

EVERY  COWUNITY  OWNS  SOME  MASONS 
EVERY  MAN  MAY  BELONG  TO  THE  MASONS 

The  entity  records  shown  contain  the  automatically  generated  ownership 
and  membership  pointers  F. MASONS ,  L. MASONS ,  P. MASONS  and  S. MASONS. 


COMMUNITY 


Fig.  4-i  —  vfcmer-member  set  relationships 


The  set  owner,  the  entity  named  COMMUNITY,  has  two  attributes 
that  point  to  the  member  entities  that  are  logioally  first  and  last 
in  the  set  MASONS.  The  member  entitiee,  here  called  MANp  MAN2, 

MANj,  and  MAN^,  have  two  attributes  that  point  to  the  members  of  the 
set  that  logioally  precede  and  succeed  them.  Thus,  F. MASONS  in 
COMMUNITY  points  to  the  entity  record  of  MAN-| ,  indicating  that  it  is 
the  first  entity  (logically)  in  the  set  MASONS,  The  pointer  P. MASONS 
of  MANi ,  points  nowhere  (has  a  raro  value),  aa  MAN^  has  no  predecease.' 
in  MASONS.  The  S. MASONS  pointer,  however,  points  to  MAN2»  which 
logically  follows  it  in  MASONS;  as  shown,  P. MASONS  of  MAN2  points 
back  to  its  predecessor,  MAN^.  The  same  is  true  of  MAN^.  MAN^,  as 


■-***-'  '  «i*Whs,  «■ 


•'>*.  =*  <*•  ■***•#■ 
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thc  ltit  member  of  MASONS,  differ*  somewhat.  It  has  no  successor, 
and  la  pointed  to  directly  by  L. MASONS,  the  last-in-set  pointer  of 
COMMUNITY, 

The  items  to  note  from  this  example  are: 

(1)  A  set  is  made  up  of  entitles  that  point  to  one  another, 
thereby  expressing  their  member  relationships. 

(2)  First  and  last-ln-set  pointers  Join  a  set’s  owner  and  its 
member  entities. 

(3)  A  specific  entity  can  own  or  belong  to  any  number  of  sets 
so  long  as  it  has  the  required  pointer  attributes.  For  example,  the 
entity  MAN  might  own  the  set  CHILDREN  whose  members  are  also  entitles 
MAN.  These  relationships  might  be  defined  by  the  statement: 

EVERY  MAN  MA;  BELUG  TO  THE  MASONS, OWN 

SOME  CHILDREN  AND  BELONG  TO  THE  CHILDREN 

Figure  4-C  illustrates  a  collection  of  MAN  entities  having  one  possible 
relationship  to  each  other. 


COMMUNITY 


Fig.  4-2  —  Set  relationships 
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The  relationships  expressed  in  Fig.  4-2  are: 

(a)  COMMUNITY  owns  the  set  MASONS  whose  members  are  MAN.,  MAN.. 

MAN4,  and  MANS-  J 

(b)  MAN.  owns  a  set  CHILDREN  whose  members  are  MAN0,  MAN.-,  and 

MANg.  1  b 

(c)  MAN2  owns  a  set  CHILDREN  whose  single  member  is  MAN^. 

These  relationships  are  depicted  in  Fig.  4-3. 


An  entity' 8  attributes  and  set  relationships  can  be  declared  in 
one  or  more  EVERY  statements  using  attribute  nrve  clauses,  set  owner¬ 
ship  clauses,  and  set  membership  clauses.  The  clauses  have  the  form 


attribute  clausa 

HAS  attribute  name  list 
or  HAVE  attribute  name  list 

set  ownership  clause 

OWNS  set  'vrone  list 

or  OWN  set  name  list 

set  membership  clause 

BELONGS  TO  set  name  list 

or  BELONG  TO  sat  rsone  list 

When  more  than  one  clause  is  used  in  an  EVERY  statement,  adjacent 
clauses  are  separated  by  commas.  If  desired,  a  clause  can  he  preceded 
by  the  words  MAY  or  CAN.  Some  examples  are: 

EVERY  MAN  HAS  Ii*t,0WNS  list  AND  MAY  BELONG  TO  list 
EVERY  CITY  OWNS  list  AND  HAS  list 
EVERY  CAR  HAS  list, AND  MAY  OWN  list 
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The  Item*  in  an  attribute  name  or  set  name  list  must  be  separated 
by  both  a  comma  and  one  of  tne  words  A,  AN,  THE  or  SOME.  Some  examples 
are: 

EVERY  MAN  HAS  A  NAME, AND  AN  ADDRESS, OWNS  SOME 

CHILDREN  AND  MAY  BELONG  TO  THE  MASONS, A  CHURCH, 

A  FAMILY  AND  AN  ALUMNI. CLUB 
EVERY  X  HAS  A  P,A  Q,A  Z  AND  AN  A 
EVERY  PROGRAM  HAS  AN  ENTRY, OWNS  SOME  LABELS, 

BELONGS  TO  A  PREAMBLE  AND  HAS  A  LENGTH 

Set  names  follow  the  same  naming  conventions  as  entities  and 
attributes  and,  like  them,  must  be  unique. 

EVERY  statements  define  data  structures.  The  next  several  sec¬ 
tions  explain  how  these  data  structures  are  created  and  used  and  the 
items  in  them  given  further  definition. 

4-03  TEMPORARY  ENTITIES 

An  EVERY  statement  defines  the  structure  of  a  class  of  entitles. 
Entity  classes  can  be  of  two  types  —  temporary  or  permanent.  This 
section  discusses  temporary  entitles;  Sec.  4-04  discusses  permanent 
entitles. 

When  the  statement 

TEMPORARY  ENTITIES 

appears  before  a  collection  of  EVERY  statements  in  a  preamble,  it 
declares  that  all  following  entities  are  temporary.  This  means  that 
storage  is  allocated  to  entities  individually  as  they  are  created 
during  the  course  of  program  execution.  Individual  entity  records 
are  provided  for  each  temporary  entity  when  a  CREATE  statement  is 
encountered.  This  statement  is  of  the  form 

CREATE  entity  name  CALLED  variable 

When  executed,  a  CREATE  statement  finds  a  contiguous  number  of  words 
in  memory  for  the  attributes  and  set  pointers  of  the  entity  class 
designated,  and  assigns  a  pointer  to  these  words  to  the  indicated 
variable.  Each  entity  so  created  is  a  unique  and  dlstinc'.  individual 
that  is  identified  by  its  pointer  word.  From  here  on,  we  shall  refer 
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to  this  pointer  word  as  the  identification  number  of  the  entity.  As 
long  as  variables  into  which  identification  numbers  are  placed  are 
distinct,  the  identity  of  individual  entitles  is  preserved.  For  example 

Entity  definition  in  a  preamble: 

TEMPORARY  ENTITIES 

EVERY  SHIP  HAS  A  NAME  AND  A  TONNAGE 

CREATE  statements  in  a  program: 

CREATE  SHIP  CALLED  VESSEL 
CREATE  SHIP  CALLED  V( I) 

These  two  CREATE  statements  assign  different  entity  records  to  the 
variables  VESSEL  and  V(I).  VESSEL  points  to  a  block  of  words  in  core, 
while  V(I)  points  to  a  different  block  of  words. 


If  desired,  the  words  A  or  AN  can  ba  used  after  CREATE  to  improve 
readability,  as  in 

CREATE  A  SHIP  CALLED  QUEEN. MARY 
CREATE  AN  EVENT  CALLED  8IRTH 

If  no  variable  is  specified  in  s  CmLLED  clause,  the  entity  identifica¬ 
tion  number  is  assigned  to  a  global  variable  with  the  same  nsee  as  the 
entity  class,  e.g.,  the  statement  CREATE  A  SHIP  finds  two  available 
consecutive  words  in  memory  and  puts  a  pointer  to  them  in  a  global 
variable  named  SHIP  that  the  system  automatically  provides.  The 
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convention  that  assign*  a  global  variable  to  each  entity  class,  e.g., 
SHIP  to  SHIP,  will  be  usefully  employed  in  later  sections.  The  global 
declaration  is  done  automatically  by  the  SIMSCRIPT  II  system  —  Just 
as  though  the  programmer  had  written  the  statement 

DEFINE  entity  none  AS  AN  INTEGER  VARIABLE 

To  refer  to  the  attributes  of  a  temporary  entity,  one  uses  the 
form  attribute  ( identification  number)  as  in  NAME (VESSEL)  and  TONNAGE 
(QUEEN. MARY) .  Since  attributes  are  words  in  memory,  like  variables, 
they  can  be  used  the  same  way  variables  are  used,  in  input/output, 
decision,  and  computation  statements.  The  following  program  illus¬ 
trates  this: 

PREAMBLE 

NORMALLY, MODE  IS  INTEGER 

TEMPORARY  ENTITIES 

EVERY  SHIP  HAS  AN  AGE  AND  A  TONNAGE 

DEFINE  V  AS  1 -DIMENSIONAL  ARRAY 

END 


MAIN 

READ  N  RESERVE  V  AS  N 
FOR  1-1  TO  N,D0 

CREATE  A  SHIP  CALLED  V(I) 

READ  AGE(V(I))  AND  TONNAGE  (V(I)) 

LOOP 

'READ'  READ  OLD 

FOR  1-1  TO  N,WITH  AGE(V(I))  <  OLD, 

ADD  TONNAGE (V(I))  TO  SUM. TONS 
PRINT  1  LINE  WITH  OLD, SUM. TONS  THUS 

TOTAL  TONNAGE  OF  SHIPS  LESS  THAN  **  YEARS  OLD-****** 
LET  SUM.TONS-O 
IF  DATA  IS  ENDEO.STOP 
ELSE  GO  TO  READ 
END 


In  this  program  N  temporary  entities  of  the  class  SHIP  are 
created  and  their  identification  numbers  stored  in  the  subscripted 
variables  V( 1 ) ,V(2) ,. . . ,V(N) .  The  attributes  of  these  entities  are 
accessed  in  READ,  WITH,  and  ADD  statements. 

As  temporary  entitles  are  created,  entity  record*  are  fetched 
from  a  pool  of  unused  memory  words.  The  assignment  of  entity  records 
to  entities  is  similar  to  the  esaignment  of  pointer  and  data  words  to 


arrays  as  they  are  reserved.  Like  arrays,  entitles  can  be  released 
when  they  are  nr  needed.  To  do  this,  the  statement 

DESTROY  entity  name  CALLED  variable 

uses  the  Identification  number  of  the  entity  stored  in  the  indicated 
variable  to  point  to  a  block  of  memory  words  that  are  to  be  released. 
When  destroyed  (released),  the  words  are  returned  to  the  pool  of  un¬ 
used  memory  words  for  later  use.  The  words  THE  or  THIS  can  be  used 
before  the  entity  name,  if  desired,  as  in: 

DESTROY  THE  SHIP  CALLED  VESSEL  and 
DESTROY  THIS  SHIP  CALLED  V(I) 

A  short  form  of  this  statement  using  only  an  entity  name 
DESTROY  entity  name 
is  treated  as 

DESTROY  entity  name  CALLED  entity  name 

The  statement 

DESTROY  THE  SHIP 

is  interpreted  as 

DESTROY  THE  SHIP  CALLED  SHIP 

4-04  PERMANENT  ENTITIES 

Permanent  entities  are  defined  in  a  similar  manner  as  temporary 
entities,  by  preceding  the  EVERY  statements  declaring  them  by  the 
statement 

PERMANENT  ENTITIES 

Entitles  declared  as  permanent  are  stored  collectively  rather  than  in 
individually  identifiable  records.  A  group  of  permanent  entitles  Is 
created  by  a  single  statement;  the  attributes  of  the  entitles  in  the 
group  are  stored  as  indexable  arrays.  The  number  of  entities  in  a 
group  is  specified  by  a  variable  N.entfft/.  Attribute  arrays  are 
allocated  by  a  CREATE  statement  of  a  different  form  from  that  used 
for  temporary  entities.  Given  the  preamble  declaration 
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PERMANENT  ENTITIES 

EVERY  HOME  HAS  AN  ADDRESS  AND  AN  AREA 

and  Che  assignment  of  a  value  to  N.ilOME  by  a  READ  or  LET  statement, 
the  statement 

CREATE  EACH  HOME 

allocates  arrays  for  the  attributes  of  the  N.HQME  entitles  of  the 
class  HOME  by  executing  the  statement  RESERVE  ADDRESS  AND  AREA  AS 
N.HOME.  That  Is,  the  attributes  of  permanent  entitles  are  stored  in 
arrays  and  are  reserved  together  when  a  CREATE  statement  Is  encountered. 
In  such  statements,  the  words  EVERY  and  ALL  can  be  used  In  place  of 
EACH.  Several  permanent  entitles  can  be  created  together  by  naming 
a  list  of  entity  names,  as  in 

CREATE  EVERY  HOME.HOTa  AND  RESTAURANT 

which  Is  of  the  general  form 

CREATE  permanent  entity  name  list 

If  the  value  of  N. entity  has  not  been  specified,  an  arithmetic 
expression  can  be  used  in  the  CREATE  statement  to  Indicate  the  size 
of  the  attribute  arrays.  For  example,  the  following  statements  are 
equivalent : 

(1)  LET  N.HOME*  5 
CREATE  EVERY  HOME 

(2)  CREATE  EVERY  H0ME{5) 

When  the  second  form  is  used,  N. entity  Is  set  to  the  value  of  the 
parenthesized  expression. 

Entitles  so  created  are  referred  to,  not  by  an  identification 
number  that  is  a  computer  location,  but  by  an  index.  Thus  we  speak. 

of  who  attributes  of  each  HOME  as  ADDRESS ( 1 ) , ADDRES5 ( 2 ) . ADDRESS ( 5 ) , 

AREA( 1 ) ,AREA(2) . AREA ( 5 ) .  The  layout  of  these  attributes  is  shown 

In  Fig.  4-4. 


. 
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ADDRESS  AREA 


1 

2 

3 

4 

5 

Fig.  4-4  —  Attribute  storage  of 
permanent  entitles 


The  program  of  Sac.  4-03  is  rcpasted  here,  using  permanent  rather 
than  temporary  entitles  to  illustrate  the  difference  in  how  they  are 
defined  and  used. 

PREAMBLE 

NORMALLY, MODE  IS  INTEGER 
PERMANENT  ENTITIES 

EVERY  SHIP  HAS  AN  AGE  AND  A  TONNAGE 
END 


MAIN 

READ  N.SHIP  CREATE  EVERY  SHIP 
FOR  1-1  TO  N.SHIP, 

READ  AGE(I).TONNAGE(I) 

'READ1 READ  OLD 

FOR  I-l  TO  N.SHIP, WITH  AGE ( I )  <  OLD, 

ADD  TONNAGE(I)  TO  SUM.TONS 
PRINT  1  LINE  WITH  OLD.SUM.TONS  THUS 

TOTAL  TONNAGE  OF  SHIPS  LESS  THAN  H  YEARS  OLD-****** 
LET  SUM.TONS-O 
IF  DATA  IS  ENDED, STOP 
ELSE  GO  TO  READ 
END 


Unlike  temporary  entitles,  permanent  entitles  cannot  be  destroyed 
individually;  they  can  be  destroyed  collectively  by  releasing  all 
their  attributes  in  RELEASE  statements,  as  in 

RELEASE  AGE  AND  TONNAGE 


All  attributes  of  permanent  entitles  must  be  released  at  the  some  time. 

Like  temporary  entitles,  permanent  entitles  have  global  variables 
defined  for  them.  Each  statement  of  the  form 

EVERY  mitity  .... 
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prompt*  the  Automatic  generation  of  a  statement 
DEFINE  entity  none  AS  AN  INTEGER  VARIABLE 


4-06  SYSTEM  ATTRIBUTES 

For  reasons  that;  will  become  clear  in  succeeding  sections,  if  is 
often  desirable  to  use  system  attributes  rather  than  global  variables. 
The  statement 

THE  SYSTEM  HAS  attribute  name  list 

declares  that  the  listed  names  are  attributes  of  the  program  as  a 
whole  —  what  we  call  the  "system."  For  most  purposes  the  statements 

(a)  THE  SYSTEM  HAS  AN  X  AND  A  Y  and 

(b)  DEFINE  X  AND  Y  AS  VARIABLES 

are  equivalent.  Since  there  is  only  one  system,  references  to  system 
attributes  need  not  be  indexed,  as  do  references  to  attributes  of 
permanent  and  temporary  entitles.  A  value  of  1  is  assigned  to  the 
variable  X  by  the  statement  LET  X*1 ,  whether  X  is  defined  by  (a)  or 
(b)  above.  System  attributes  will  be  subscripted  if  the  background 
dimensionality  condition  at  the  time  of  their  declaration  is  greater 
than  zero.  X  is  declared  to  be  r  2-dimensional  system  attribute  t>y 
the  statements 

NORMALLY.  DIMENSION  IS  2 
THE  SYSTEM  HAS  AN  X 


The  Importance  of  system  attributes  lies  not  so  much  in  their 
use  as  global  variables,  but  as  pointers  that  enable  a  program  as  a 
whole  to  own  sets.  The  statement 


THE  SYSTEM  OWNS  A  QUEUE 

specifies  that  a  program  contains  two  INTEGER  system  attributes  named 
F. QUEUE  and  L. QUEUE  that  point  to  tha  first  and  last  entities  belong¬ 
ing  to  a  set  named  QUEUE.  Several  systes--ovncd  sets  can  be  defined 
at  one  time  by  the  statement 


THE  SYSTEM  OWNS  »et  liti 
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The  following  preamble  llluatretes  pome  typical  set  declarations. 

PREAMBLE 

NORMALLY .MODE  IS  INTEGER 
THE  SYSTEM  OWNS  A  SCHOOL 
PERMANENT  ENTITIES 

EVERY  STREET  HAS  A  SIGN  AND  OWNS  HOUSES 
EVERY  HOUSE  HAS  A  NUMBER.  OWNS  A  FAMILY  AND 
BELONGS  TO  SOME  HGUSES 

TFMP^RAWY  FNTTT1FS 

EVERY  PERSON  HAS  A  NAME, AN  AGE, A  SEX, BELONGS 
TO  A  FAMILY  AND  MAY  BELONG  TO  A  SCHOOL 
EVERY  FAMILY  OWNS  SOME  PERSON 


Subscripted  sys tea-owned  sets  are  defined  by  setting  a  dimensionality 
background  condition  that  makes  the  set  pointers  arrays,  rather  than 
unsubscripted  variables,  as  in 

NORMALLY,  DIMENSION  -  2 

THE  SYSTEM  OWNS  A  TABLE  AND  HAS  A  MATRIX 


Subscripted  system  attributes  used  as  data  or  as  act  pointers  must  &e 
RESERVED  before  they  can  be  used.  To  use  the  system  set  TABLE  and 
the  system  array  MATRIX,  a  statement  such  as 

RESERVE  F. TABLE, L. TABLE  AND  MATRIX  EACH  N  BY  M 


must  be  executed. 


4-06  ATTRIBUTE  CEFISITIOHS—MODE  AS l  EISESSI  TALITY 


Attributes  of  the  system,  and  of  permanent  and  temporary  entitles, 
_an  be  INTEGER,  REAL ,  or  ALPnA  valued.  As  with  global  and  loca'  va~i- 
ables,  modes  can  be  declared  by  default,  using  NORMALLY  statements, 
and  explicitly,  using  DEFINE  statements.  Except  for  set  pointers, 
which  are  automatically  define^  as  INTEGER,  all  attributes  are  sus¬ 
ceptible  to  p-ogrammer  definition. 

Permanent  and  temporary  entity  declarations  define  the  Jtmen- 
slonallty  of  their  sttrlbutee  Implicitly,  making  additional  defini¬ 
tions  unnecessary.  The  statement 

EVERY  MAN  HAS  AN  AGE 


declares  that  AGE  has  a  single  subscript,  sn  identification  number  If 


r 
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HAN  It  temporary,  or  an  i/.dex  if  HAN  la  permanent.  The  notation  AG E(I), 
read  AGE  of  I,  provldea  for  this  aubacrlpt. 

Syatea  attributea,  on  the  other  hand,  auet  be  declared  and  re- 
ae-ved  aa  explained  in  Sec.  4-OS. 

The  rulea  for  aaalgnlng  aodea  and  dimanaioualltlea  to  attributea 
are  atraightforvard: 


(a)  The  current  "background  mode"  la  aaalgned 
to  all  attributea  apecified  in  EVERY  and 
THE  SVSTEM  statement*  except  for  auto¬ 
matically  generated  act  pointera  that  are 
alvaya  INTEGER. 

(b)  DEFINE  atatementa  following  EVERY  and  THE 
SYSTEM  atateaenta  can  redefine  attribute 
mode a . 

(a)  The  current  "background  dimenoionality" 
ia  assigned  to  all  attributes  and  sets 

Dimensionality  apecified  in  THE  SYSTEM  statements. 

(b)  EVERY  statements  specify  the  dimensionality 
of  the  attributea  and  sets  listed  in  them. 


The  following  preamble  illustrates  aach  of  these  rules: 

PREAHBLE 

NORMALLY  DIMENSION  IS  2 
THE  SYSTEM  HAS  AN  EXCESS 
DEFINE  EXCESS  AS  AN  INTEGER  ARRAY 
NORMALLY  DIMENSION  »  0, 

MODE  IS  REAL 

THE  SYSTEM  HAS  A  VALUE  AND 
OWNS  A  COLLECTION 
PERMANENT  ENTITIES 

EVERY  SAMPLE  BELONGS  TO  T“E  COLLECTION 
AND  HAS  A  PRICE  AND  A  NAME 
TEMPORARY  ENTITIES 

EVERY  POINT  HAS  AN  IDENTITY  AND  A 
TIME. OF. COLLECTION 

DEFINE  NAME  AND  IDENTITY  AS  ALpHA  VARIABLES 
END 

This  preamfe  a  defines  four  system  attributes,  one  of  which  Is  REAL 
valued  (VALUE),  one  of  which  Is  a  bjJt  pointer  for  a  tw"o-  llmens l onal 
arrav  (EXCESS)  whose  elements  are  Ih'EGER  valued,  anu  tvo  of  wh‘ch  are 
INTEGER- valued  eet  pointers  ( F . COLLECT  ION ,L . COLLECT  ION) .  It  s  Iso 
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defines  a  class  of  permanent  entitles  (SAMPLE)  and  a  class  of  temporary 
entitles  (POINT) .  Each  entity  of  type  SAMPLE  has  two  INTEGER  attrib¬ 
utes  (P. COLLECTION  and  S. COLLECTION) ,  a  REAL  attribute  (PRICE),  and 
an  ALPHA  attribute  (NAME).  These  attributes  are  stored  as  one-diraen- 
a^onal  arrays  of  dimension  N. SAMPLE.  Each  entity  of  type  POINT  has 
an  ALPHA  attribute  (IDENTITY)  and  a  REAL  attribute  (TIME. OF. COLLECTION). 
These  attributes  are  stored  in  individual  words  of  temporary  entity 
records.  Figure  4-5  illustrates  the  storage  of  the  attributes  of 
N. SAMPLE  permanent  entities  of  the  class  SAMPLE. 


SAMPLE 
base  pointers 

P.  COLLECTION 


S.  COLLECTION 


PPICE 


NAME 


Fig.  4-5  —  Storage  of  attributes  of  a  permanent  entity 


Figure  4-6  illustrates  the  layout  of  an  entity  record  for  a 
temporary  entity  of  the  class  POINT. 


IDENTITY 


TIME.  OF.  COLLECTION 


Fig,  4-6  —  Storage  of  attributes 
of  a  temporary  entity 


Figure  4-7  illustrates  the  arrangement  in  memory  of  the  system 
attributes  VALUE,  EXCESS,  F. COLLECTION,  and  L. COLLECTION. 
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l 


INTEGER  data  values 


Fig.  4-7  —  Storage  of  system  attributes  and  set  pointers 


4-07  ATTRIBUTE  DEFINITIONS— PACKING  AND  EQUIVALENCE 

Thus  far,  all  discussions  of  data  have  assumed  that  data  values 
are  stored  individually  in  separate  and  distinct  computer  words. 

While  this  is  by  far  the  most  usual  form  of  data  storage,  situations 
exist  whereby  more  than  one  data  value  must  be  placed  in  a  single 
computer  word.  The  most  commonly  encountered  reason  for  doing  this 
is  to  "squeeze"  programs  with  large  data  requirements  into  limited 
memory  space. 

When  more  than  one  data  value  is  placed  in  a  computer  word,  the 
values  are  said  to  be  packed,  in  the  word.  When  a  data  value  is  given 
different  names  the  names  are  said  to  be  equivalent.  3IMSCRIPT  II 
offers  facilities  for  packing  INTEGER  and  ALPHA  and  equivalencing 
INTEGER,  ALPHA,  and  REAL  attribute  values.  Subscripted  system  attrib¬ 
utes,  and  attributes  of  temporary  and  permanent  entities,  can  be 
packed  and  equivalenced.  Unsubscripted  system  attributes  can  only 
be  equivalenced.  This  is  one  reason  for  defining  certain  values  as 
system  attributes,  rather  than  as  global  variables,  which  can  be 
neither  packed  nor  equivalenced. 

Attribute  packing  is  specified  by  attaching  a  packing  factor 
enclosed  in  parentheses  to  an  attribute  name.  Three  types  of  packing 


-212- 


are  available:  field,  bit,  and  intra.  Field  and  bit  packing  apply 
to  all  subscripted  attributes;  intrapacking  applies  only  to  subscripted 
system  attributes  and  to  attributes  of  permanent  entities. 

The  SIMSCRIPT  II  system  uses  programmer-specified  packing  factors 
t^  store  and  retrieve  data  values.  The  fact  that  data  are  packed  is 
reflected  in  a  program's  preamble  but  not  in  its  executable  state¬ 
ments.  A  programmer  operates  at  all  times  on  a  logical  level,  e.g., 
AGE(MAN);  the  SIMSCRIPT  II  system  determines  where  AGE(MAN)  is  phys¬ 
ically  located. 

Using  field  and  bit  packing,  data  fields  can  be  laid  out  within 
computer  words.  The  field  packing  notation  (1/2)  specifies  that  the 
attribute  value  to  which  it  is  attached  is  to  be  put  in  the  first 
half  of  a  computer  word.  The  bit  packing  notation  (1-16)  specifies 
that  bits^  1  through  16  are  to  be  used  to  store  an  attribute  value. 
Since  computers  differ  in  word  size  and  in  instructions  available  to 
access  parts  of  words,  it  is  impossible  to  specify  all  the  possible 
field  and  bit  packing  factors  available  in  different  SIMSCRIPT  II 
implementations.  Table  4-1  shows  the  packing  factors  available  in 
an  IBM  360  implementation;  readers  using  other  implementations  will 
have  to  consult  their  implementation  manuals  for  the  packing  factors 
available  to  them. 

Attribute  names  are  processed  as  they  appear  in  EVERY  statements, 
and  are  assigned  their  indicated  positions  within  successive  computer 
words.  Attribute  equivalence  is  specified  bv  placing  parentheses 
around  a  list  of  attributes.  All  attributes  within  parentheses  are 
assigned  to  the  same  computer  word;  if  two  attributes  have  the  same 
packing  factors,  their  names  are  synonyms.  Overlapping  packing  fac¬ 
tors  can  be  specified.  Attributes  enclosed  in  equlvalencing  parenthe¬ 
ses  appear  in  a  list,  without  the  words  A,  AN,  or  THE  before  them. 

The  parenthesized  Hat  must,  however,  be  preceded  by  one  of  these 
words.  The  following  examples  illustrate  the  use  of  field  and  bit 
packing  factors  for  attributes  of  temporary  entitles: 


+0r  bytes,  or  digits,  depending  on  the  computer  implementation. 
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Table  4-1 

FIELD  AND  BIT  PACKING  FACTORS  FOR  IBM  360 


Field  Packing  Factor 

Attribute  Value  Placement 

1/2 

first  half  of  computer  word 

2/2 

second  half  of  computer  word 

1/4 

first  quarter  of  computer  word 

2/4 

second  quarter  of  computer  word 

3/4 

third  quarter  of  computer  word 

4/4 

fourth  quarter  of  computer  word 

Bit  Packing  Factor 

r  ' 

Attribute  Value  Placement 

n  -  m 

bits  n  through  m  inclusive 

1  1  n  1  32 

1  I  ®  1  32 

n  <  a 

TEMPORARY  ENTITIES 

(a)  Declaration: 

EVERY  MAN  HAS  AN  AGE  AND  A  NAME 
Fruity  record: 

word  1 
word  2 

(b)  Declaration: 

EVERY  MAN  HAS  AN  ( AGE ( 1/2)  AND  NAME (2/2 ) ) 
Entity  record: 

word  1  j  AGE  NAME! 

I _ _ t 


AGE 

NAME 
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Field  and  bit  packing  of  attributes  of  permanent  entities  and 
subscripted  system  attributes  places  two  or  more  attributes  in  the 
same  array.  The  declaration 

PERMANENT  ENTITIES 

EVERY  HOUSE  HAS  AN  (ADDRESS (1/2) .AND  ZIP(2/2)) 


places  similarly  indexed  values  of  ADDRESS  an .1  ZIP  in  the  same  com* 
puter  word.  This  declaration,  followed  by  the  statement  CREATE  EVERY 
HOUSE  (5)  allocates  storage  as  follows: 


Base  Pointer  of 
ADDRESS  and  ZIP 


ADDRESS(I) 

ZIP(l) 

ADDRESS(2) 

ZIP(2) 

AD0RESS( 3) 

ZIP(3) 

ADDRESS(4) 

ZIP(4) 

ADDRESS (5) 

2IP(5) 

word  1 
word  2 
word  3 
word  4 
word  5 


More  than  one  set  of  attributes,  of  course,  may  be  packed  in  a 


single  EVERY  statement,  e.g., 

EVERY  SHIP  HAS  A  (TONNAGE (1/2), A  CAPACITY ( 2/2 )) ,A 
(DESTINATION  1/2)  AND  HOME. PORT (2/2)) 


This  Ptatement  pairs  the  attributes  TONNAGE  and  CAPACITY  and  the 
attributes  DESTINATION  and  HOME. PORT  in  adjacent  parts  of  attribute 
arrays.  Some  additional  examples  follow. 


PERMANENT  ENTITIES 


(a)  Declaration: 

EVERY  HORSE  HAS  A  NAME  AND  AN  OWNER 
Attribute  arrays: 


NAME  J 

^  word  1 

| 

1 

| 

—  -  1  OWNER 

l _ J 

word  2 

_ _ _ 

- 1 

i 

word  N. MORSE 

• 

] 

NAME  and  OWNER  are  separate  arrays. 
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(b)  Declaration: 

EVERY  HORSE  HAS  A  (NAME, OWNER) 


Attribute  arrays: 


word  1 
word  2 


word  N. HORSE 


NAME  and  OWNER  refer  to  the  same  data  array. 


(c)  Declaration: 

EVERY  HORSE  HAS  A  ( NAME ( 1/2) .OWNER (2/2) ) 


NAME  la  stored  in  the  left  half,  and  OWNER  in  the  right  half  of 
data  array. 


SYSTEM  ATTRI BITES 


fa)  Declaration: 

NORMALLY,  DIMENSION  *  0 

THE  SYSTEM  HAS  A  HIGH  ANO  A  LOW 


HIGH 


Attributes : 
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(b)  Declaration: 

NORMALLY,  DIMENSION  -  1 

THE  SYSTEM  HAS  A  HIGH  AND  A  LOW 

Attributes: 


|  NIGH  ^►word  1 

1 

LOW 

word  2 

2 

• 

• 

• 

• 

« 

• 

• 

. 

i 

• 

• 

9 

9  ! 

* 

• 

• 

a 

• 

• 

• 

• 

word  N 

M 

(c)  Declaration: 


NORMALLY,  DIMENSION  -  1 
THE  SYSTEM  HAS  A  (HIGH.LOW) 


Attributes: 


HIGH  and  LOW 


are  synonyms. 
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(d)  Declaration: 

NORMALLY,  DIMENSION  -  1 

THE  SYSTEM  HAS  A  (HIGHO/4),  LCrf(2/2)) 


The  second  quarter  of  each  data  word  is  unused. 


Intrapaaking  is  used  to  cosqtress  array  storage  of  subscripted 
system  attributes  and  attributes  of  peraansnt  entities.  The  intra- 
packing  notation  (*/2)  specifies  that  two  values  are  to  be  packed  in 
one  word,  i.e.,  the  array  in  which  they  are  stored  is  covpressed. 

For  axaaple,  the  declarations 

NORMALLY,  DIMENSION  «  1 
THE  SYSTEM  HAS  A  LIST{*/2) 

and  the  stateaant  RESERVE  LIST(*}  AS  10  specifies  and  allocates  storage 
to  LIST  as  follows: 

_ “ 1  word  1 

base  pointer  of  LIST  word  2 

word  3 
word  4 
word  5 

Whan  a  systea  attribute  Is  1 t ldlnensional ,  packing  takes  place 
at  the  datastorage  level  only;  the  array  pointer  words  arc  unpacked. 
Thus  the  stateaents 


LIST(l) 

L I  ST ( 2 ) 

L I  ST  ( 3 ) 

L I  ST ( 4 ) 

LIST (5) 

L I  ST  (6 ) 

L 1ST ( 7 ) 

LIST ( 8 ) 

LIST (9 ) 

L I ST (10) 
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NORMALLY .  DIMENSION  •  2 

THE  SYSEM  HAS  A  LI$T(*/2)  end 

RESERVE  LIST(V)  AS  3  BY  4 


opacify  '.nd  allocate  storage  to  LIST  as  follows: 


Row  Pointers  Attribute  Values 


As  with  field  and  bit  packing,  lntrapacklng  specifications  depend 
ou  computer  implementation.  Table  4-2  shows  permissible  lntrapacklng 
factors  for  the  IBM  360;  other  ieplemen tat Ions  have  their  permissible 
factors  specified  In  their  implementation  manuals. 

Table  4-2 


INTRAPACKING 

FACTORS  FOR  IBM  360 

lntrapacklng  Factor 

Attribute  Value  Placement 

(*/2) 

2  values  per  word 

(*/ 4) 

. . -  — . .  -  -  -  i 

4  values  per  word 

When  necessary,  further  a-ecif icatlon  can  be  made  of  attribute 
values  to  entity  arrays  or  records.  Attributes  of  temporary  entitles 
can  be  assigned  to  particular  words  of  entity  records  by  following 
their  declaration  by  the  clause  IN  WORD  1,  where  1  is  an  integer  con¬ 
stant,  as  in  examples  (a)  and  (b)  below: 


(a)  Declaration: 

EVERY  MAN  OWNS  A  FAMILY, HAS  AN  AGE  IN  WORD  1,  AND  HAS  A  NAME 

Entity  record: 


word  1 

AGE 

word  2 

F. FAMILY 

word  3 

L. FAMILY 

word  4 

NAME 
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(b)  Declaration: 

EVERY  MAN  HAS  AN  (AGE(l/4),SEX{2/4),NAME(2/2)) 
IN  WORD  1  AND  A  DEBT  IN  WORD  2 

Entity  record: 


word  1 

AGE  j  SEX 

NAME 

word  2 

DEBT 

Specification  of  rhe  word  In  a  temporary  entity  record  in  which 
an  attribute  value  ia  located  la  required  for  cormcm  attributee , 
attrlbutea  that  are  common  to  more  than  one  entity  claaa.  All  common 
attribute  valuea  muat  be  in  the  aame  re1*  -e  location*  in  all  entity 
record*,  and  hence  must  have  the  aame  packing  factor*  and  word  asslgn- 
menta  whenever  rhey  appear.  For  example: 

EVERY  MAN  HAS  AN  (AGE(l/2) ,NAME(2/2>)  IN 
WORD  1  .OWNS  A  FAMILY  AND  BELONGS  TO 
A  LODGE 

EVERY  WOMAN  HAS  AN{AGE(l/?^NAME{2/2) )  IN 
WORD  l.AND  BELONGS  TO  A  .AMILY 

Since  AGE  and  NAME  ax*  common  to  both  MAN  and  WOMAN,  they  have  the 
aame  packing  factors  and  word  specification  in  both  EVERY  statements. 

When  entitle*  belong  to  comon  lets  their  set  pointers  euat  be 
explicitly  declared  and  located.  In  the  above  example,  if  both  en¬ 
titles  of  the  class  MAN  and  WOMAN  belonged  to  the  set  FAMILY,  the 
declarations  would  have  to  be  rewritten  as: 

EVERY  MAN  HAS  AN(AGE(l/2),NAME(2/2) )  IN 
WORO  1 .OWNS  A  FAMILY, BELONGS  TO  A  FAMILY 
AND  HAS  A  P. FAMILY  IN  WORD  4  AND  A  S. FAMILY 
IN  WORO  5 

EVERY  WOMAN  MAS  AN ( AGE ( 1/2) .NAME (2/2) }  IN 
WORD  1, BELONGS  TO  A  FAMILY  ANO  HAS  A 
P. FAMILY  IN  WORD  4  ANO  AN  S. FAMILY  IN  WORD  5 

Entity  record*  of  MAN  and  WMAN  would  look  like: 


WOMAN 


MAN 


word  1 

AGE 

NAME 

AGE 

NAME 

word  2 

F. FAMILY 

unused 

word  3 

L. FAMILY 

unused 

word  4 

P. FAMILY 

P. FAMILY 

word  5 

S. FAMILY 

S. FAMILY 

Putting  the  set  pointers  ?. FAMILY  snd  S. FAMILY  In  words  2  end 
3  In  this  example,  rsthsr  than  In  4  and  5,  would  ssvs  two  words  In 
each  WOMAN  record. 

Care  oust  be  taken  when  aentlonlng  set  pointers  In  EVERY  statements 
that  they  are  not  inadvertently  defined  as  something  other  than  INTEGER. 
Moreover,  every  qualified  set  pointer  must  be  listed  In  any  EVERY  statement 

Attributes  of  permanent  entities  and  system  attributes  are  not 
assigned  to  words  but  to  arrays  by  the  clause  IN  ARRAY  1,  where  1  is 
an  Integer  constant.  This  is  important  in  certain  implementation" f 
aa  it  affects  the  compilation  process;  specifying  an  attribute's 
array  masher  can  often  lead  to  compiler  efficiencies. 

The  results  of  packing,  equivalence,  and  word  and  array  specifi¬ 
cation  are  shown  in  Table  4-3. 


Table  4-3 


ATTRIBUTE  SPECIFICATIONS 


Specif ication 

Assignment 

No  packing,  equivalence,  or 
word  or  array  specif ication 

Attributes  assigned  to  separate 
words  or  arrays  in  the  order  of 
their  appearance  in  preamble 

Word  or  array  specification 

Attributes  are  assigned  to 
specified  words  or  arrays; 
remaining  attributes  assigned 
as  above 

Equivalence  specification 

Specified  attributes  assigned 
to  the  eame  word  or  array 

Packing  specification 

Field  and  bit  packing  used  to 
place  more  than  one  attribute 
within  a  computer  word 

Intrapacking  used  ro  compress 
storage  for  arrays 
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The  EVERY  statement  this  permits  a  great  deal  of  specification, 
or  lack  of  specification,  of  an  entity's  attributes.  The  use  of 
packing  factors,  equivalence  parentheses,  and  WORD  and  ARRAY  clauses 
gives  a  programmer  a  good  deal  of  control  over  the  allocation  of  com¬ 
puter  storage.  Succeeding  sections  elaborate  on  entity-attribute-set 
definitions,  introduce  statements  for  using  entities,  attributes,  and 
sets,  and  present  programing  examples. 

4-08  ATTRIBUTE  DEFINITIONS— FUNCTIONS 

When  defined  by  statements  of  the  form 

THE  SYSTEM  HAS  AN  attribute  name  FUNCTION 

EVERY  entity  name  HAS  AN  attribute  none  FUNCTION 

a  system  attribute  or  an  attribute  of  a  permanent  or  temporary  entity 
is  treated  as  a  function  and  not  as  a  variable.  That  is,  a  subprogram 
having  the  same  name  as  the  declared  attribute  must  be  provided.  The 
subprogram  must  have  the  same  -lumber  of  arguments  as  the  declared  or 
implied  dimensionality  of  the  attribute,  i.e.,  no  arguments  for  an 
unsubscrlpted  system  attribute,  one  argument  for  an  temporary  or  per¬ 
manent  entity,  two  arguments  for  a  2-dimensional  system  attribute,  etc. 

Function  attributes,  because  they  are  computational  procedures, 
have  no  storage  space  allocated  to  them.  Declarations  of  attributes 
as  functions  interspersed  between  other  attribute  declarations  have 
no  effect,  therefore,  on  storage  allocation  of  attributes  to  arrays 
or  entity  records.  The  following  example  illustrates  this: 

Declaration: 

EVERY  AUTO  HAS  A(PASSENGER.LIMIT(l/2) ,AND 

WEIGHT(2/2)),A  FUEL  FUNCTION, A  CONSUMPTION. RATE .OWNS  SOME  PASSENGERS 
AND  HAS  A  FUEL. CAPACITY  AND  A  DEPARTURE. TIME 

Entity  record: _ _ 


word  1 

PASSENGER. LIMIT  WEIGHT 

word  2 

CONSUMPTION. RATE 

word  3 

F. PASSENGERS 

word  4 

L. PASSENGERS 

word  5 

FUEL. CAPACITY 

word  6 

DEPARTURE. TIME 
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Assume  the  attribute  function  FUEL  is  defined  by  the  following 
program: 

ROUTINE  FOR  FUEL (AUTO) 

RETURN  WITH  FUEL . CAPAC I TY ( AUTO ) - (T IME- DEPARTURE . T I ME ( AUTO ) ) * 
CONSUMPTION. RATE(AUTO) 

END 

The  amount  of  fuel  currently  in  a  particular  auto,  assuming  that 
the  current  time  is  contained  in  the  global  variable  TIME,  can  thus 
be  found  by  writing  LET  AMOUNT* FUEL (AUTO ) .  As  the  variable  TIME 
changes,  the  reported  value  of  FUEL  changes. 

Function  attributes  have  a  number  of  uses:  they  can  be  used,  as 
above,  to  determine  values  of  continuously  changing  quantities;  to 
perform  complex  calculations;  to  define  optional  attributes;^  and 
to  perform  monitoring,  printing,  and  other  input/output  operations. 

An  example  follows: 

Declaration: 

EVERY  MAN  HAS  A  CREDIT. RATING  FUNCTION, A  BANK. BALANCE, 

A  DEBT. TOTAL, A  MORTGAGE. PAYMENT, A  NUMBER. OF. DEPENDENTS 
AND  A  SALARY 


Function  attribute  definition: 

ROUTINE  FOR  CREDIT . RATING (J ) 

IF  ( SALARY ( J ) -MORT GAGE . PAYMENT ( J ) )  <  100*  NUMBER. OF.  DEPENDENTS^ ) 
OR  DEBT. TOTAL (J)  >  4*BANK. BALANCE (J), RETURN  WITH  0 
OTHERWISE  RETURN  WITH  1 
END 

Program  statement: 

IF  CREDIT. RATING(CUST0MER)=0, GO  REFUSE. CREDIT 
ELSE  CALL  ACCEPT. CREDIT 


4-09  MORE  ON  SETS:  THEIR  DECLARATION  AND  USE 

Sets,  as  we  have  described  them,  are  collections  of  entitles 
organized  by  systems  of  pointers.  Set  owners  point  to  the  first  and 
last  members  of  sets;  set  members  point  to  one  another.  Sets  are 


+See  Sec.  4-14-6. 
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like  arrays  in  Chat  they  are  composed  of  elements  that  can  be  identi¬ 
fied  and  manipulated,  but  are  unlike  arrays  in  their  method  of  organi¬ 
zation  and  cheir  dynamic  and  changeable,  rather  than  static  and  fixed, 
nature. 

As  described  in  previous  sections,  sets  are  declared  in  EVERY 
statements  when  their  owner  and  member  antities  are  defined.  Every 
set  must  have  an  owner,  either  an  entity  or  the  system,  and  can  have 
either  permanent  or  temporary  entities  as  members.  When  more  than 
one  type  of  temporary  entity  belongs  to  a  set,  the  predecessor  and 
successor  attributes  of  the  entities  must  be  located  in  the  sane 
words  in  the  entity  records. 

Sets  named  in  EVERY  statements  have  the  following  properties: 

(a)  Owner  entities  have  first  and  last  pointers  named  F .set 
and  L .set', 

(b)  Member  entities  have  predecessor  and  successor  pointers 
named  P  .set  and  S .set', 

(c)  Set  members  are  ranked  on  a  first-in,  first-out  basis  when 
they  are  put  in  a  set.  This  ranking  gives  the  highest 
priority  to  the  first  entity  put  in  a  set; 

(d)  A  request  to  remove  an  unspecified  entity  from  a  set  removes 
the  entity  with  the  highest  current  priority; 

(e)  Each  member  entity  has  a  membership  attribute  named  M.set 
that  is  "yes"  if  an  entity  is  in  the  set  and  "no"  if  it  is  not 

(f)  Each  owner  entity  has  a  counter  attribute  names  N .set  whose 
value  is  the  number  of  member  entities  currently  in  the  set. 

All  set  owner  and  member  attributes  are  INTEGER  valued  and  have  names 
formed  by  prefixing  a  letter  and  a  period  to  the  set  name. 

The  declarations 

PERMANENT  ENTITIES 

EVERY  CITY  OWNS  A  CLUB 
TEMPORARY  ENTITIES 

EVERY  MAN  MAY  BELONG  TO  THE  CLUB 

define  three  attributes  for  the  owner  entity  of  CLUB  and  three  attri¬ 
butes  for  its  member  entities.  Since  CITY  is  a  oermanent  entity,  its 
owner  attributes  are  stored  as  arrays: 

^While  normally  INTEGER,  N.aet  and  M .set  attributes  can,  when 
necessary,  be  defined  as  REAL. 
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word  1 
word  2 


word  N.CITY 


F.CLU8p^  |L.CLUB 


f^.CLUBhy 


MAN,  being  a  temporary  entity,  has  lta  member  attrlbutea  atored  In 
Individual  entity  recorda: 


word  1 
word  2 
word  3 


MAN 

P.CLUB 

S.CLUB 

M.CLUB 


Every  program  connancea  execution  with  empty  acta.  Aa  «  program 
proceeda,  atatamenta  are  executed  that  file  entltlea  In  acta,  examine 
aeta,  and  remove  entltlea  from  aeta.  Set  mamberehlpa  change  dynamic¬ 
ally  when  FILE  and  REMOVE  atatementa  alter  get  polntera,  changing 
relationahipg  that  affect  act  meaberahlp  and  a-»t  ranking.  The  FILE 
atatement  haa  two  baalc  forma: 

(a^)  FILE  arithmetic  expression  FIRST  IN  set 
(a^)  FILE  arithmetic  expression  LAST  IN  set 

(b^)  FILE  arithmetic  expression  BEFORE  arithmetic  expression  IN  set 
(i>2)  FILE  arithmetic  expression  AFTER  arithmetic  expression  IN  set 

The  vordg  FIPCT  or  LAST  are  optional.  When  both  are  omitted,  FILE 
LAST  la  implied;  the  atatementa 

FILE  arithmetic  expression  LAST  IN  set  and 
FILE  arithmetic  expression  IN  set 

are  equivalent. 

In  each  of  the  forma,  the  worda  THE  or  THIS  are  optional  before 
the  axpreaaion  or  the  get  name,  aa  In 
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FILE  THE  BIRD  IN  THE  NEST 

FILE  THIS  JOB  FIRST  IN  THIS  QUEUE 

FILE  FIDO  AFTER  ROVER  IN  THE  KENNEL 


Used  in  this  context,  an  arithmetic  axpreaelon  auat  evaluate  to  an 
entity  identification  number;  it  muat  ba  either  the  addraaa  of  a 
temporary  entity  record  obtained  from  a  previoua  CREATE  etatement  or 
an  integer  number  denoting  one  of  N. entity  permanent  entitiea  of  a 
epecific  type. 

In  ceee  (a),  the  indicated  item  ie  filed  at  the  head  (tail)  of 
the  eat,  and  it  ie  given  top  (bottom)  priority.  In  (b),  the  poeltion 
of  filing  ie  epeclfled.  The  actlone  that  take  place  when  a  "FILE 
FIRST"  etatement  ie  executed  are  llluetrated  by  tvo  exaaplea.  The 
exemplee  uae  e  aet  whoee  owner  and  member  entitiea  are  both  temporary, 
but  they  can  a a  wall  be  both  permanent,  or  one  permanent  and  one  tem¬ 
porary.  The  aet  end  the  entitiea  are  defined  by  the  atatementat 


TEMPORARY  ENTITIES 
EVERY  FARM  OWNS  A  KENNEL 

EVERY  D06  HAS  A  NAME  AND  BELONGS  TO  SOME  KENNEL 
DEtINE  NAME  AS  AN  ALPHA  VARIABLE 

I 

The  two  illuatretiona  are  Included  in  the  program  augment  ehown  below. 

i 

Ua  flrat  conaldar  the  eltuation  before  and  after  the  flret  dog  ie 

filed  in  a  kennel;  later  we  examine  a  subaequent  eltuation.  Aaeume 

a  FARM  hae  been  created  whoee  identification  number  la  etored  in  the 

global  variable  FARM.  Thia  could  have  been  done  by  the  etatement 

CREATE  A  FARM.  j 


Program  Segment 


READ  NUMBER. OF. OOGS 
FOR  1-1  TO  NUWER.OF.OOGS.DO 
CREATE  A  DOG 
READ  NAME (DOG) 

FILE  DOG  FIRST  IN  KENNEL(FARM) 

LOOP 


The  entity  record  of  FARM  looka  like: 


word  1 


word  2 


word  3 


FARM 

F. KENNEL 
L. KENNEL 
N. KENNEL 
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Aftar  the  first  dog  is  created,  its  entity  record  looks  like: 

DOG 

NAME 

P. KENNEL 
S. KENNEL 

M.  KENNEL 

At  this  point  th-  variables  F. KENNEL,  L. KENNEL,  N. KENNEL,  P. KENNEL, 

S. KENNEL  and  M. KENNEL  are  all  zero,  indicating  that  KENNEL (FARM)  Is 
aapty  and  DOG  is  not  in  sobs  KENNEL.  We  vill  as suae  that  M. KENNEL 
is  either  0  (no)  or  1  (yes). 

After  the  FILE  stateaent  is  executed,  the  entity  records  look  like: 

FARM  , - - -  ~~^DQ6 

F.  KENNEL  NAME^ROVER 

L.  KENNEL  fZZ - P.  KENNEL  5~ 

N.  KENNEL  T|  S.  KENNEL  ff~ 

M.  KENNEL  I  T~ 

The  owner  entity  FARM  points  to  the  amber  entity  DOG:  DOG,  being 
the  only  entity  in  KENNEL( FARM) ,  is  both  first  and  last.  Since  DOG 
is  alone  in  KENNEL (FARM)  it  has  no  predecessor  or  successor  entities. 

After  the  second  DOG  is  created  and  filed,  the  entity  records 
look  like: 


F. KENNEL 

NAME 

ROVER 

L. KENNEL  " 

f ^ 

P. KENNEL 

~9  — 

N. KENNEL 

....  2_ 

V  S. KENNEL 

0 

M.  KENNEL 

1 

NAME 

P. KENNEL 
S. KENNEL 
M. KENNEL 


With  tvo  ambers  in  the  set,  the  first  and  last  pointers  lead  to  dif¬ 
ferent  entity  records.  The  first  entity,  poir.tti  to  hv  F.KENNtL(FARM) , 
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point8  ahead  to  the  second  entity  vlth  its  successor  pointer.  The 
second  entity  points  baok  et  the  first  entity  with  its  predecessor 
pointer.  Both  the  predecessor  pointer  of  the  fxrst  entity  end  the 
successor  pointer  of  the  lest  entity  ere  zero,  indicstlng  their  re* 
spectlve  roles. 

An  important  point  to  note  Is  thet  the  globel  verieble  DOG  now 
points  to  the  second  DOG  (the  second  DOG  crested,  not  necesserlly  the 
second  In  the  set).  The  entity  record  of  the  first  DOG  crested  cen 
only  be  eccessed  through  the  pointers  to  It,  L. KENNEL (FARM)  end 
S. KENNEL (DOG) .  These  pointers  llluetrete  the  generel  fora  of  en 
ettrlbute  reference. 

attribute  (entity  identification) 

Since  en  entity  ldentlflcetlon  cen  itself  be  en  ettrlbute,  as  In  the 
cese  of  e  pointer,  nested  entity  references  cen  be  made,  es  in 

S. KENNEL (F. KENNEL (FARM))* 

which  has  che  sasw  v  ue  es  S.KENNEL(DOG)  since  F.KENNEL(FARM)»DOG. 
Any  level  of  entity  nesting  is  possible  as  long  as  ell  nested'  expres¬ 
sions  evaluate  to  entity  identification  nuabere. 

When  a  third  DOG  is  created  end  filed,  the  entity  records  look 

like: 

FARM 


M. KENNEL 

NAME 
P. KENNEL 
S. KENNEL 
M. KENNEL 


NAME 
P. KENNEL 
S.KEiNEL 
M. KENNEL 

Additional  creations  and  filings  are  analogous. 


*Thls  is  read  es  "the  successor  of  the  first  in  KENNEL  of  FARM." 


F. KENNEL 
L. KENNEL 
N. KENNEL 
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A  "FILE  LAST"  stateaent  has  an  efface  similar  Co  a  "FILE  FIRST", 
but  oparatea  on  the  oppoaite  and  of  a  aat.  If  our  exaaple  prograa 
segment  vara  written  vith  the  statement  FILE  DOG  LAST  IN  KENNEL (FARM) , 
aftar  executing  three  craataa  and  fllea  the  entity  racorda  would  look 
like: 


F. KENNEL 
L. KENNEL 
N. KENNEL 


The  "FlLE  BEFORE"  and  "FILE  AFTER"  atateaents  are  deacrlbed 
through  a  different  exaaple. 

Aeauae  the  entity  record  organization  shown  in  Fig.  4-8  was 
created  by  the  following  nrogram  statements: 

CREATE  A  OOG  CALLED  ROVER 
FILE  ROVER  FIRST  IN  'vENNEL(FARM) 

CREATE  A  DOG  CALLEO  FIDO 
FILE  FIDO  FIRST  IN  KENNEL (FARM) 

The  atateaents 

CREATE  A  DOG 

FILE  THE  DOG  AFTER  FIDO  IN  KENNEL(FARM) 

Insert  the  entity  record  for  the  newly  created  DOG  after  the  entity 
record  pointed  to  by  the  variable  FIDO.  The  resulting  entity  record 
organization  la  shown  in  Fig.  4-9. 


F. KENNEL 
L. KENNEL 
N. KENNEL 


NAHE 
P. KENNEL 
S. KENNEL 
n. KENNEL 


Fig.  4-8  —  A  set  with  two  —hers 


F. KENNEL 
L. KENNEL 
N. KENNEL 


Fig.  4-9  —  A  set  with  three  —hers 


Kotltlaa  ara  rwowd  trom  itti  by  REMOVE  itttMeti.  TVo 
fora*  of  rnml  or*  poo  a  lb  1* ;  aach  vorka  analofoualy  to.  and 
pllahaa  tha  rtrni*  taaka  of.  a  FILE  atatoaent. 
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<•  )  REMOVE  FIRST  uariabU  FROM  *«t 

(*2>  REMOVE  LAST  variabl *  FROM  *«t 

(b)  REMOVE  arithmtio  expression  FROM  set 

The  word  THE  la  optional  aftar  REMOVE,  aa  la  althar  of  tha  worda  THE 
and  THIS  bafora  tha  aat  naat.  In  addition,  althar  of  tha  vorda  THIS 
or  ABOVE  can  be  uaed  bafora  tha  axpraaalon  In  fora  (b). 

A  "REMOVE  FIRST"  or  "REMOVE  LAST"  statement  removes  fro.  a  aat 
tha  entity  polntad  to  by  tha  flrat  or  laat  pointer  attribute  of  tha 
aat  owner .  Tha  Identification  number  of  tha  reaoved  entity  la  assigned 
to  tha  variable  In  tha  REMOVE  atataaant.  Tor  lnatance,  In  tha  sltus- 
tlon  ah own  In  Fig.  4-9,  the  atataaant 

REMOVE  THE  FIRST  HOUND  FROM  KENNEL( FARM) 

raaovaa  tha  flrat  entity  (FIDO)  froa  KENNEL (FARM) ,  makes  the  aecond 
antlty  flrat,  and  puta  a  pointer  to  FIDO  In  HOUND.  Tha  attribute 
valuaa  of  FIDO,  which  now  can  alao  be  called  H01WD,  are  unchanged 
except  for  M. KENNEL.  Although  FIDO  la  no  longer  In  KENNEL(FARM) ,  Its 
attribute  S. KENNEL  atlll  polnta  to  DOG.  In  aoat  lnatancea,  pointer 
valuaa  are  aeanlngleaa  once  an  entity  la  reaoved  froa  a  aat.  If  the 
naaa  FIDO  were  replaced  by  DOG  In  Fig.  4-8,  thla  figure  would  ahow 
the  organisation  of  KENNEL(FARM)  after  FIDO  had  been  reaoved  :ro. 

Fig.  4-9. 

If  an  atte.pt  la  aide  to  raaovc  the  flrat  or  laat  atead>er  fro.  an 
eapty  aet,  the  program  terminates  with  a  Manage  and  an  error  halt. 

A  "REMOVE  apeclflc  entity"  etateetnt  (for.  (b))  extracts  a  par¬ 
ticular  entity  fro.  a  set;  the  entity  Identification  number  Is  given 
by  the  arlthMtlc  expression.  Referring  again  to  Fig.  4-9,  the  state- 
atnt 

REMOVE  THIS  DOG  FROM  KENNEL (FARM) 

convert*  the  eet  shown  in  that  figure  to  the  set  shown  In  Fig.  4-8. 

If  the  arlthMtlc  expreaaloe  la  not  an  Identification  number  of  an 
entity  currently  la  the  aet  (signaled  by  a  HyeeR  In  lta  membership 
attribute),  the  progrM  terminates  with  a  message  and  an  error  halt. 

The  presence  of  a  membership  attribute  In  an  entity  permits  both 
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error  checking  (cannot  file  Y  after  X  becauea  X  la  not  in  the  eat; 
cannot  remove  X  becauae  X  ia  not  in  the  aet;  cannot  destroy  X  if  it 
ia  a  member  of  some  sets;  cannot  file  X  in  a  set  if  it  is  already  in 
it)  and  queationing  about  set  membership.  The  logical  expressions 

arithmetic  expression  IS  IN  set  and 
ai*ithmtia  expression  IS  NOT  IN  set 

can  be  used  in.  IF  statements  and  WITH  clauses  to  take  actions  con¬ 
ditional  on  set  membership.  A a  options,  the  words  THE  and  THIS  can 
precede  the  arithmetic  expression,  and  the  words  A,  AN,  THE,  or  SOME 
the  set  name.  One  can  write 

IF  ROVER  IS  NOT  IN  SOME  KENNEL,  or 
WITH  THIS  DOG  IN  A  KENNZ'  , 

et  cetera.  In  these  statements  the  aet  name  KENNEL  cannot  be  sub¬ 
scripted,  It  is  impossible  for  an  entity  to  belong  to  more  than  one 
aet  of  a  given  class  at  a  time.  A  DOG  can  belong  to  KENNEL (FARM)  or 
KENNEL (HOUSE),  etc.,  but  not  to  both.  A  membership  attribute  signals 
class,  and  not  specific  owner,  membership. 

Each  set's  first  pointer  Is  used  to  determine  whether  or  not  j. 
specific  set  has  meters.  The  logical  expressions 

set  IS  EMPTY  and 
set  IS  NOT  EMPTY 

are  available.  As  with  the  preceding  expressions,  the  words  THE  and 
THIS  are  allowed  before  the  set  name  to  Improve  readability.  Using 
the  "IS  NOT  EMPTY"  and  "IS  EMPTY"  logical  sxprasslons,  one  can  write 
statements  such  as 

IF  KENNEL (FARM)  IS  NOT  EMPTY, 

REMOVE  THE  FIRST  DOG  FROM  KENNEL (FARM) 

ELSE  and 

IF  SEX (PERSON) ■“MALE"  AND  FAN! LY( PERSON)  IS  EMPTY, 

CALL  BACHfLOR. ACTION  GIVEN  PERSON 
ELSE 

All  the  statements  described  thus  far  assume  that  every  set  has 
a  full  complement  of  ownership  and  membership  attributes,  l.e.,  that 
both  first  arid  last,  predscessor  and  succeaaor  pointers,  and  c^untsr 
and  membership  attrlbutss  ars  defined.  To  perform  all  of  the  available 
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tec  manipulations,  they  must  all  be  present.  When  set  needs  are  more 
modest,  sets  with  fever  pointers  can  be  designed,  with  a  gain  in 
efficiency  in  set  manipulations  at  the  expense  of  some  manipulative 
power. 

The  sets  pictured  In  all  preceding  Illustrations  contain  all 
possible  pointers.  Additionally,  they  i>xnk  on  a  first-in,  first-out, 
priority  scheme,  i.e.,  FILE  LAST  is  Che  default  condition.  Other 
rankings  are  possible.  For  example,  in  a  set  defined  by  the  declarations 

EVERY  COUNTRY  OWNS  AN  ARMY 
EVERY  MAN  HAS  A  HEIGHT  AND  A  HEIGHT 
ANO  8EL0NGS  TO  AN  ARMY 

we  might  want  Che  various  men  in  the  army  sets  to  be  ranked  by  weight 
or  height,  rather  than  by  set  entrance  time.  Furthermore,  we  might 
want  this  ranking  to  be  in  ascending  or  descending  order.  This  can 
be  done  by  Including  a  set  definition  statement  after  the  EVERY  state¬ 
ments  that  first  mention  a  set,  and  after  any  attribute  definition 
statements  that  might  be  associated  with  the  EVERY  atatener. : .  A  set 
definition  statement,  like  an  attribute  definition  statement,  begins 
with  DEFINE.  The  following  statements  define  the  set  ARMY  as  being, 
respectively:  (1)  ranked  in  descending  order  by  the  HEIGHT  attribute 

of  the  entitles  in  It;  (2)  ranked  In  ascending  order  by  these  same 
attributes;  (3)  ranked  In  descending  order  by  the  HEIGHT  attribute 
of  the  entitles  In  it;  (4)  ranked  In  descending  order  by  the  HEIGHT 
attributes,  and,  for  those  entitles  whose  HEIGHT  attributes  have  equal 
value,  ranked  In  ascending  order  by  their  HEIGHT  atcrlbut-s. 

(1)  DEFINE  ARMY  AS  A  SET  RANKED  BY  HIGH  HEIGHT 

(2)  DEFINE  ARMY  AS  A  SET  RANKED  BY  LOH  HEIGHT 

v 3)  DEFINE  ARMY  AS  A  SET  RANKED  BY  HEIGHT 

(4)  DEFINE  ARMY  AS  A  SET  RANKED  BY  HIGH  lJE IGHT, 

THEN  BY  LOH  HEIGHT 

Example  ( 1'  shows  that  omission  of  the  words  HIGH  or  ICW  Implies 
HIGH.  Example  (4)  sheets  hov  ranxings  can  be  cascaded,  me  after 
another,  by  THEN  BY  clauses  to  ’esolve  ties  when  ranking  attribute* 
are  equal.  Aa  many  THEN  BY  clauses  car,  be  used  as  are  needed  In  any 
given  application.  A  comm*  must  precede  each  THEN  BY  clause. 


I 

I 
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If  a  set  is  to  be  ranked  only  by  entry  time  of  entities  into  it, 
a  short  form  can  be  used.  Depending  upon  whether  the  ranking  gives 
highest  priority  to  the  earliest  or  latest  arrival,  the  DEFINE  state¬ 
ment  is  written  as: 

(1)  DEFINE  ARMY  AS  A  FIFO  SET  or 

(2)  DEFINE  ARMY  AS  A  LIFO  SET 

If  form  (1)  is  used,  entities  are  put  in  sets  on  a  first-in,  first-out 
basis;  they  are  filed  last  as  they  are  put  in  and  removed  in  the  order 

in  which  they  were  filed.  If  form  (2)  is  used,  entities  are  put  in 

sets  on  a  last-in,  first-out  basis. 

In  some  cases,  not  all  of  the  automatically  defined  set  pointers 
are  needed.  This  is  true  in  FIFO-  and  LIFO-defined  s-.ls,  where  enti¬ 
ties  are  never  inserted  in  the  middle  of  a  sec,  but  only  at  the  begin¬ 
ning  or  end.  A  FIFO  set  need  have  only  first,  last,  and  successor 
pointers;  a  LIFO  set  need  have  only  first  and  successor  pointers. 

FIFO  and  LIFO  set  organizations  are  shown  in  Fig.  4-10. 

Since  ranked  sets  are  defined  with  respect  to  ranking  values  of 
their  members,  it  rarely,  if  ever,  makes  sense  to  use  FILE  BEFORE  or 
FILE  AFTER  in  such  sets.  Doing  so  will,  in  fact,  destroy  the  ranking 
concept.  A  clause  can  be  appended  to  a  set  declaration  statement  to 
delete  unused  set  attributes;  any  or  all  of  the  three  owner-entity 
and  three  member-entity  attributes  may  be  deleted.  If  the  first-in¬ 
set  attribute  is  deleted,  the  "IS  EMPTY"  logical  expression  cannot  be 
used;  if  the  membership  attribute  is  deleted,  the  "IS  IN  set"  logical 
expression  cannot  be  used.  Table  4-5  on  page  241  defines  the  state¬ 
ments  that  cannot  be  used  when  certain  set  attributes  are  deleted. 

The  deletion  clause  is  of  the  form 

WITHOUT  attribute  list  ATTRIBUTES 

Attribute  list  is  a  list  of  one  or  more  of  the  letters  F,  L,  P,  S,  N, 
and  M,  The  presence  of  a  letter  indicates  that  the  attribute  formed 
by  prefixing  it  and  a  period  to  the  set  name  is  not  automatically 
generated.  For  example,  we  might  write  the  following  statement 
defining  a  LIFO  set-: 
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DEFINE  ARRIVALS  AS  A  LIFO  SET  WITHOUT  L,P,N 
AND  M  ATTRIBUTES 

The  astute  reader  will  note  that  while  it  is  possible  to  delete  all 
attributes,  doing  so  completely  destroys  the  concept  of  a  set.  The 
programmer  is  cautioned  against  deleting  set  attributes  without  care¬ 
fully  considering  the  consequences  (see  Table  4-5,  page  241). 

When  required,  two  or  mere  sets  having  the  same  properties  can 
be  declared  in  the  same  DEFINE  statement.  A  list  of  set  names  can 
appear  after  the  word  DEFINE,  and  the  word  SETS  used  instead  of  SET. 

4-10  ENTITY  CONTROL  PHRASES 

Two  new  forms  of  the  FOR  statement  make  it  possible  to  step 
through  collections  of  entities,  just  as  the  FOR  v  -  e^  lO  BY  e^ 
statement  made  it  possible  to  step  through  successive  elements  of 
arrays.  One  form  deals  exclusively  with  permanent  entities  and  the 
other  deals  with  sets. 

Permanent  entities,  having  their  attributes  stored  as  arrays, 
are  indexed  sequentially.  The  first  entity  of  the  permanent  entity 
class  AUTO  has  index  1,  the  second  2,  ...,  the  nth  N.AUTO.  To  step 
through  a  sequence  of  index  numbers  from  1  to  N. entity  for  a  particular 
permanent  entity  class  one  writes 

(1)  FOR  EACH  entity  or 

(2)  FOR  EACH  entity  CALLED  variable 

Form  (1)  is  equivalent  to  the  statement  FOR  entity  ■  1  to  N. entity, 
where  entity  is  the  global  variable  with  the  same  name  as  the  entity 
class.  Thus,  the  statement  FC T,  iMCrl  AUTO  is  equivalent  to  the  state¬ 
ment  FOR  AUTO  “  I  TO  N.AUTO.  The  words  EVERY  and  ALL  may  be  used  in 
place  of  EACH,  if  desired. 

Form  (2)  is  equivalent  to  the  statement  FOR  variable  ■  1  TO 
N. entity,  where  the  variable  named  in  the  CALLED  phrase,  instead  of 
the  global  variable  with  the  same  name  as  the  entity,  is  used  to 
receive  the  sequential  index  values.  This  variable  can  be  global  or 
local.  It  cannot  be  subscripted. 

"Regular"  FOR  statements  and  WiiH,  UNLESS,  WHILE,  and  UNTIL 
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statements  can  be  appended  to  permanent  entity  control  FOR  phrases 
as  required. 

The  following  statements  illustrate  a  typical  permanent  entity 
FOR  phrase  application: 

Program  Preamble: 

PERMANENT  ENTITIES 

EVERY  MAN  HAS  A  NAME,  AND  AN  AGE 

Main  Program: 

READ  N.MAN 
CREATE  EVERY  MAN 

FOR  EVERY  MAN,  READ  NAME ( MAN ) ,  AGE (MAN) 

FOR  EVERY  MAN  WITH  NAME(MAN)="JOHN" ,  DO 
ADD  AGE (MAN)  TO  SUM 
ADD  1  TO  N 

LOOP 


Experience  has  shown  that  some  people  would  rather  write  FOR  EACH 
JOB,  rather  than  FOR  I  =  1  TO  N.JOB  even  if  JOB  has  not  been  defined 
as  a  permanent  entity.  That  is,  they  prefer  not  to  make  up  a  local 
variable  name  (I  in  this  instance)  just  to  sten  through  a  sequence  of 
values  from  1  to  N  (N.JOB  in  this  instance),  hut  would  rather  use  a 
name  that  is  easy  to  remember  and  has  some  meaning.  To  facilitate 
this,  the  phrase 

INCLUDE  entity  name  list 

can  be  appended  to  a  PERMANENT  ENTITIES  statement,  as  in 
PERMANENT  ENTITIES  INCLUDE  MAN,  COUNTRY  AND  FISH 

This  phrase  defines  the  listed  names  as  permanent  entities  with¬ 
out  attributes,  but  with  the  associated  global  variables  entity  and 
N. entity.  The  above  statement  defines  the  global  variables  MAN,  N.MAN, 
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COUNTRY,  N. COUNTRY,  FISH,  and  N.FISH  and  permits  the  statements 

FOR  EVERY  MAN 

FOR  EACH  COUNTRY  and 
FOR  ALL  FISH 

to  be  used.  The  following  short  example  illustrates  why  this  might 
be  a  useful  shorthand: 

Program  Preamble: 

PERMANENT  ENTITIES  INCLUDE  ELEMENT 

Main  Program: 

READ  N. ELEMENT 

RESERVE  LIST ( *)  AS  N. ELEMENT 

FOR  EACH  ELEMENT,  LET  LIST(ELEMENT)-  1 

It  should  be  clear  that  such  a  statement  is  impossible  for  temporary 
entities.  Scattered  throughout  memory,  rather  than  stored  sequen¬ 
tially,  temporary  entities  cannot  be  Indexed  by  ordinal  numbers;  they 
can  only  be  pointed  to  by  set  pointers.  To  process  all  the  temporary 
entities  of  a  given  class,  the  entities  must  be  stored  in  a  set  as 
they  are  created,  and  must  be  processed  by  a  statement  that  deals 
with  the  set.  This  statement,  which  by  its  nature  deals  with  both 
permanent  and  temporary  entitles,  has  two  basic  forms: 

(a)  FOR  EACH  variable  OF  set 

(bl)  FOR  EACH  variable  FROM  arithmetic  expression  OF  set 

(b2)  FOR  EACH  variable  AFTER  arithmetic  expression  OF  set 

Form  (a)  selects  entitles  that  are  members  of  an  Indicated  set 
in  order  of  their  ranking  and  assigns  their  identification  number  to 
a  named  variable.  If  the  set  is  empty,  all  of  the  statements  con¬ 
trolled  by  the  FOR  statement  are  bypassed.  The  control  variable  can 
be  either  local  or  global.  It  cannot  be  subscripted. 

Form  (bl)  does  the  same  task  as  form  (a),  except  that  it  starts 
with  the  set  member  identified  by  the  indicated  expression.  Form 
(b2)  is  similar  to  (bl),  but  starts  with  the  set  member  that  follows 
the  identified  member.  If  the  identified  member  is  not  in  the  set 
(denoted  by  a  "no"  in  its  membership  attribute),  the  program  terminates 
with  an  error  message. 
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In  forms  (a)  and  (b),  the  words  EVERY  and  ALL  can  be  used  instead 
of  EACH,  and  the  words  IN,  ON,  and  AT  used  as  synonyms  for  OF, 

To  step  backward  through  a  jet,  the  phrase 

IN  REVERSE  ORDER 

Is  placed  after  the  sec  name.  Set  control  can  range  from  simple  state¬ 
ments  such  as 

FOR  EVERY  JOB  IN  QUEUE 

to  complicated  statements  such  as 

FOR  ALL  FISH  AFTER  MINNOW(I)  IN  POND  IN  REVERSE  ORDER 

Since  many  variations  of  r'OR  statements  are  possible,  a  few  illus¬ 
trations  follow.  In  these  illustrations,  we  assume  that  permanent 
entities  with  identification  numbers  i,  2,  3,  4,  5,  and  6  are  filed 
in  a  set  in  the  order  of  1,  3,  2,  4,  6,  5.  They  may  have  arrived  in 
this  order  and  be  stored  as  FIFO,  or  they  may  have  been  ranked  on 
some  attribute  value;  the  method  of  rani  r  ;  is  not  important  in  this 
example.  Table  4-4  states  different  control  statements  and  indicates 
the  identification  number  sequence  of  entities  that  are  passed  on  to 
the  controlled  statements  by  each.  The  entities  are  filed  in  a  set 
named  FILE;  the  local  variable  J  is  used  within  the  control  loop  for 
the  selected  identification  numbers. 

Section  2-07  gave  the  expansion  of  the  "regular"  FOR  statement 
into  simpler  SIMSCRIPT  II  statements  so  that  persons  wishing  to  per¬ 
form  atypical  operations  within  the  control  of  a  FOR  statement  will 
know  how  the  statement  works  and  avoid  writing  incorrect  programs. 

The  following  program  is  a  prototype  of  the  code  generated  for  state¬ 
ments  of  the  form 


Table  4-4 


ILLUSTRATIVE  SET  CONTROL  STATEMENTS 


Control  Stateoent 

FOR  EACH  J  IN  FILE 
FOR  EACH  J  FROM  4  IN  FILE 
FOR  EACH  J  AFTER  4  IN  FILE 
FOR  EACH  J  IN  FILE  IN 
REVERSE  ORDER 
FOR  EACH  J  FROM  4  IN  FILE 
IN  REVERSE  ORDER 
FOR  EACH  J  AFTER  4  IN  FILE 
IN  REVERSE  ORDER 
FOR  EACH  J  IN  FILE  UNTIL  J=3 
FOR  EACH  J  IN  FILE  IN  REVERSE 
ORDER  UNTIL  J=3 
FOR  EACH  J  FROM  2  IN  FILE 
UNTIL  J=6 

FOR  EACH  J  IN  FILE  WITH  J*5 


Identification 
Number  Sequence 

1  3  2  4  6  5 

4  6  5 


5  6  4  2  3  1 

4  2  3  1 

2  3  1 

1 

5  6  4  2 

2  4 

1  3  2  4  6 


FOR  EACH  V  OF  set'  %  DO  statement  group  LOOP 

LET  V  *  F .set 
GO  TO  L.2 
'L.T  LET  V-  L.4 

'L.2'  IF  V*  0  GO  TO  L.3 

ELSE  LET  L.4*  S.aet(V) 


statement  grout) 

GO  TO  L.l 

'L.3' 

A  comparison  of  this  program  with  that  of  Sec.  2-07  reveals  that  the 
two  are  analogous.  The  first  LEI  statement  picks  up  the  initial  item 
in  the  iteration  sequence;  the  statement  labeled  'L.21  checks  to  see 

*set  lepresents  a  subscripted  or  unsubscripted  set.  If  subscripted, 
f  .set  must  have  the  same  number  of  subscripts. 


-241- 


lf  the  sequence  has  ended;  and  the  statement  labeled  * L . 1 ’  sets  the 
control  variable  to  a  new  vf.lue  for  the  next  iteration.  Variations 
of  the  FOR  phrase  produce  variations  in  this  prototype;  for  example, 
writing  FOR  EACH  V  FROM  W  OF  set  changes  the  first  statement  to 
LET  Va  S.set(W).  Adding  an  IN  REVERSE  ORDER  clause  changes  the  LET 
statement  following  the  ELSE  statement  to  LET  L.4  *  P.aet(V),  etc. 

The  consequences  of  particular  statements  within  a  FOR  phrase  control 
loop  can  always  be  determined  by  constructing  the  program  generated 
by  the  specific  FOR  phrase  and  analyzing  its  relation  to  the  state¬ 
ments  involved. 

Table  4-5  lists  the  set  attributes  that  are  required  for  the 
different  set  operations  described. 


Table  4-5 

REQUIRED  SET  ATTRIBUTES 


Statement 

Attributes  Required 


M  N 


FILE  in  a  ranked  set 
FILE  FIRST 
FILE  LAST 
FILE  BEFORE 
FILE  AFTER 
REMOVE  FIRST 
REMOVE  LAST 
REMOVE  soecific 
IS  EMPTY 

IS  IN  set  t 

Automatic  checking 
FOR  EACH  V  IN  set 

FOR  EACH  V  IN  set  IN  REV. 

FOR  EACH  V  FROM  W  IN  set 

FOR  EACH  V  FROM  W  IN  set  IN  REV. 

FOR  EACH  V  AFTER  W  IN  set 

FOR  EACH  V  AFTER  W  IN  set  IN  REV 


Following  sections  dtscribe  automatic  set  diagnostics 
performed  only  when  a  membership  attribute  is  included. 
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4-11  COMPOUND  ENTITIES 

At  times  It  is  convenient  for  several  entities  jointly  to  have 
attributes  and  own  sets.  Such  entities  are  called  compound  entities. 
Statements  such  as 

PERMANENT  ENTITIES 

(1)  EVERY  MAN  AND  WOMAN  OWNS  A  FAMILY  AND  HAS 

A  BANK. ACCOUNT 

(2)  EVERY  CITY, COUNTY, STATE  HAS  A  CENSUS 

(3)  EVERY  MODEL, COLOR, YEAR, MFG  HAS  A  SALES. VOLUME 

define  compound  entities  composes  of  2,  3,  and  4  permanent  entities, 
respectively.  The  first  defines  three  two-dimensional  arrays: 

F. FAMILY,  L. FAMILY,  and  BANK. ACCOUNT,  each  dimensioned  as  N.MAN  BY 
N. WOMAN.  The  second  defines  a  three-dimensional  array  CENSUS  dimen¬ 
sioned  as  N.CITY  BY  N. COUNTRY  BY  N. STATE.  The  fourth  defines  a  four- 
dimensional  array  dimensioned  in  a  similar  way.  Compound  entitles 
are  defined  by  statements  of  the  form 

EVERY  compound  entity  none  list  HAS  attribute  none  list  AND  OWNS 
set  name  list. 

As  in  the  case  of  individual  entity  definitions,  HAS  and  OWNS  clauses 
can  appear  in  the  same  or  different  statements.  The  word  HAVE  can  be 
used  for  HAS  and  OWN  for  OWNS.  Compound  entitles  cannot  belong  to 
sets.  By  definition,  the  individual  entitles  of  which  compound  en¬ 
titles  are  composed  must  exlat,  e.g.,  If  there  is  a  compound  entity 
MAN  AND  WOMAN  there  must  be  an  entity  MAN  and  an  entity  WOMAN. 

A  ocmpo'md  entity  ncrne  list  is  a  list  of  entity  names  that  have 
either  been  declared  previously  in  EVERY  or  INCLUDE  statements,  or, 
by  their  presence  in  a  compound  entltv  declaration,  *re  declared  as 
entitles  of  the  type  specified  in  the  current  background  condition, 
i.e.,  by  the  last  PERMANENT  ENTITIES  or  TEMPORARY  ENTITIES  statement. 
Three  kinds  of  compound  entitles  are  possible:  those  composed  ex¬ 
clusively  of  permanent  entitles;  those  composed  exclusively  of  tem¬ 
porary  entitles;  and  those  composed  of  both  permanent  and  temporary 
entities. 

Members  of  sets  owned  by  compound  entitles  can  be  either  permanent 
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cr  temporary  entitle*.  Set  membership  la  declared  as  usual.  More¬ 
over,  "compound  sets"  can  have  any  of  their  six  set  attributes  deleted 
and  be  defined  as  FIFO,  LIFO  or  RANKED.  The  following  statements 
might  appear  In  a  program  in  conjunction  with  declaration  (1)  above: 

TEMPORARY  ENTITIES 

EVERY  CHILD  BELONGS  TO  A  FAMILY  AND  HAS  AN  AGE 
DEFINE  FAMILY  AS  A  SET  RANKED  BY  AGE  WITHOUT  N  AND  M  ATTRIBUTES 

Attributes  of  compound  entities  and  sets  owned  by  compound  en¬ 
titles  are  subscripted.  Subscripting  takes  place  in  the  order  in 
which  compound  entities  are  defined.  Thus,  in  the  statements 

LET  BANK. ACCOUNT { I, J)  -  1000 

FILE  THIS  CHILD  IN  FAMILY  (MAN, WOMAN) 

the  variables  I  and  MAN  can  range  from  1  to  N.MAN,  end  the  variables 
J  and  WOMAN  can  range  from  1  to  N. WOMAN. 

Arrays  are  allocated  to  "permanent"  compound  entitles  when  their 
individual  entitles  are  created.  While  it  is  usual,  it  is  not  necea- 
iry  that  they  be  created  together.  Clven  the  declarations 

PERMANENT  ENTITIES 
EVERY  MAN  HAS  A  JOB  AND  A  SALARY 
EVERY  WOMAN  OWNS  SOME  JEWELRY 
EVERY  MAN  AND  WOMAN  OWNS  A  FAMILY  AND  HAS  A 
BANK. ACCOUNT 

the  statement 

CREATE  EACH  MAN  AND  WOMAN 

reserves  arrays  for  the  attributes  of  MAN  and  WOMAN,  and  the  compound 
entity  MAN, WOMAN.  The  CREATE  statement  is  in  fact  translated  into 
several  RESERVE  statements: 

RESERVE  J08( *)  AND  SALARY ( *)  AS  N.MAN 

RESERVE  F.JEWELRYO,  L.JEWELRY(*)  AND  N.JEWELRY(*) 

AS  N.WOKAN 

RESERVE  F. FAMILY( *,*) ,  l . FAM I L Y ( *,*) ,  N. FAMILY (*,•}  AND 
BANK. ACCOUNT (*,*)  *5  N.MAN  BY  N. WOMAN 

Attribute*  of  peraer.«_nt  compound  entities  can  he  released  hv 
regular  RELEASE  fctateser.t*  such  as 


RELEASE  BANK. ACCOUNT 
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Compound  entities  composed  exclusively  of  temporary  entities,  or 
of  mixtures  of  pemanent  and  temporary  entities,  look  the  same  as 
"permanent"  compound  entities  but  function  differently.  The  difference 
lies  in  the  fact  that  all  attributes  of  "mixed"  or  "temporary"  com¬ 
pound  entlcies  are  functions;  they  have  no  storage  allocated  to  them. 
They  cannot  be  created  cr  destroyed,  at  can  (and  indeed  must)  the 
entities  of  which  they  are  composed.  A  routine  must  be  written  for 
each  compound  attribute  (Including  set  pointers)  of  this  type  that 
accepts  the  attribute  indices  as  arguments  and  returns  a  single  value  — 
an  attribute  value  or  a  set  pointer.  Thus,  the  declaration 

EVERY  J06.NAN  HAS  AN  INFLUENCE  FUNCTION 

where  JOB  and  MAN  are  temporary  entities,  defines  INFLUENCE  as  a 
function  having  the  background  mode.  This  function  can  be  further 
defined,  as  in 

DEFINE  INFLUENCE  AS  A  REAL  FUNCTION 

if  necessary.  When  a  statement  like  LET  T*  TIME*INFLUENCE(JOB, PERSON) 

Is  executed,  the  routine  INFLUENCE  is  called  with  the  arguments  JOB 
and  PERSON  —  two  identification  numbers  of  temporary  entities.  The 
rov.lne  must  perform  a  task  such  as: 

ROUTINE  INFLUENCE  (I,J) 

DEFINE  I  AND  J  AS  INTEGER  VARIABLFS 
IF  STATUS (J )  >  5M  AND  PRIORITY(I)  *  PM 
RETURN  WITH(STATUS(J)/5N)*(PRI0RITY(I)/PM) 

ELSE  RETURN  WITH  1 
END 

■»- ; r.  ; V; ' i  . •  •  y. :  *v ; • 

Preceding  socti.ms  described  how  attributes  are  define1  and 
touched  on  their  use.  Fxamples  showed  that  attributes  look  like  sub¬ 
scripted  variables  when  they  appear  in  program* ;  every  attribute 
reference  is  of  the  form 

•  ‘  *  — •  h *  c  k  rv  c".'.’.  Zf  ’■  'ZZ‘ 

For  attributes  of  individual  entities,  v he  entity  ident i f i cat i on  is 
either  an  index  or  ident  l  f  t  o  at  1  on  number:  for  at  t  rib::'  ■-  .  of  cowpot<r.d 
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entities,  the  entity  Identification  ia  a  liat  of  index  or  identifica¬ 
tion  nuabera. 

The  autoaatlc  definition  of  global  variables  with  the  sane  namea 
as  declared  entitles  was  also  discussed.  They  were  used  in  minimising 
the  need  for  local  variables  In  situations  like: 

CREATE  A  SHIP 

READ  NAME(SHIP),  TONNAGE (SHIP) . SPEED(SHIP) 

When  used  in  this  manner,  attribute  subscripts  are  stated  explicitly; 
identification  or  index  numbers  are  used  to  access  attribute  value*. 
The  above  statements  are  functionally  equivalent  to  the  statements: 

CREATE  A  SHIP  CALLED  S 

READ  NAME ( S ) ,  TONNAGE(S) .  SPEED(S) 

Since  all  items  Indexed  by  entity  names  (attributes  and  sets) 
are  declared  in  the  program  preamble.  It  is  possible  to  declare  a 
default  or  Implied  subscript  If  one  Is  omitted  from  an  attribute  or 
set  reference.  An  implied  subscript  is  a  global  variable  having  the 
same  name  as  the  entity  associated  with  the  attribute  or  set  refer¬ 
enced.  In  the  case  of  compound  entities,  subscripts  are  implied  in 
the  order  they  appear  In  the  defining  EVERY  statement.  For  obvious 
reasons,  common  attributes  cannot  have  Implied  subscripts.  Some 
example;  of  entity  definitions  and  Implied  subscripts  follow: 

(1)  Declaration: 

PERMANENT  ENTITIES 

EVERY  MAN  HAS  AN  AGE 

Use: 

LET  AGE»  1  i*  equivalent  to  LET  AG£{HAN,*  1 

Whenever  the  attribute  AGE  appears  wltneut  an  entity  reference,  the 
global  variable  MAN  l*  used  as  an  Identification  number. 

Dec  la  rat  ton  : 

TEMPORARY  ENTITIES 

EVERY  PROGRAM  OWNS  SOME  LABELS 

EVERY  LABEL  BELONGS  T0  SOME  LABELS 
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Use  : 

CREATE  A  PROGRAM 

CREATE  A  LABEL  CALLED  EXIT 
FILE  EXIT  IN  THE  LABELS 

FILE  EXIT  IN  THE  LABELS  is  equivalent  to  FILE  EXIT  IN  THE  LABELS ( PROGRAM ) . 

(3)  Declaration: 

PERMANENT  ENTITIES 

EVERY  CITY .STATE  HAS  A  POPULATION 

Use: 

LET  POPULATION  =  4Q0000  is  equivalent  to 
LET  POPULATION (CITY, STATE)  =  400000 

LET  POPULATIGN(NEW.YORK)  =  8000000  is  equivalent  to 
LET  POPULATION  (NEW. YORK, STATE)  =  8000000 

Implied  subscripts  cannot  be  used  in  free-form  READ  statements 
to  input  attributes  of  permanent  entities,  as  the  form  READ  attri¬ 
bute  implies  input  of  the  entire  attribute  array. 

4-n  displaying  attribute  values 

Speci  attribute  values  can  be  output  by  conventional  PRiNT 
and  WRITE  statements.  An  attribute  reference  appearing  in  an  output 
list  calls  for  the  retrieval  and  display  of  a  single  value  just  as  a 
subscripted  variable  or  function  reference  does.  Some  examples  of 
attributes  used  in  PRINT  and  WRITE  statements  are: 

(1)  PRINT  1  LINE  WITH  POPULATION (STATE)  AS  FOLLOWS 

POPULATION  IS  ******** 

(2)  WRITE  I,  S(X),  INDEX! I),  NAME (INDEX(I))  AS  3  I  5,  A  10 

(3)  FOR  EACH  CARROT  IN  BUNCH,  WRITE  LENGTH (CARROT)  AS  I  4 

Implied  subscripts  can  be  used  in  PRINT  and  WRITE  statements,  as 
well  as  in  computational  statements.  Attributes  declared  by  the 
statement 

PERMANENT  ENTITIES 

EVERY  BOOK  HAS  A  PAGE. COUNT,  A  SUBJECT  AND  AN  AUTHOR 
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can  be  displayed  by  the  statement 

FOR  EVERY  BOOK,  WRITE  PAGE. COUNT, SUBJECT  AND  AUTHOR  AS  I  4,  2  A  TO 

The  LIST  statement  can  be  used  to  display  all  the  attributes  of 
an  entity  without  writing  all  their  names.  Three  forms  are  available: 

(1)  LIST  ATTRIBUTES  OF  entity  CALLED  arithmetic  expression 

displays  the  attributes  of  the  particular  entity  referenced.  The 
statement  can  be  used  for  both  permanent  and  temporary  entities.  The 
format  used  is  that  employed  for  displaying  values  of  expressions  or 
unsubscripted  variables.  A  short  form 

LIST  ATTRIBUTES  OF  entity 

displays  the  attributes  of  the  entity  whose  index  or  identification 
number  is  contained  in  the  global  variable  with  the  same  name  as  the 
entity. 

(2)  LIST  ATTRIBUTES  OF  EACH  entity 

displays  the  attributes  of  all  the  entities  in  a  permanent  entity 
cla3s.  The  format  used  is  that  employed  in  listing  one-dimensional 
arrays.  If  only  one  attribute  of  a  permanent  entity  class  is  to  be 
printed,  it  must  be  done  by  referencing  the  pointer  to  the  array  con¬ 
taining  the  attribute  values,  e.g.,  by  a  statement  of  the  fc  m 

LIST  attribute 

(3)  LIST  ATTRIBUTES  OF  EACH  entity  IN  set 

displays  the  attributes  of  all  the  entities,  permanent  or  temporary, 
filed  in  an  indicated  set.  Since  only  one  heading  is  printed,  the 
labeled  output  is  only  meaningful  for  sets  with  one  class  of  entity 
filed  in  them. 

The  use  of  each  of  these  statement  forms  is  illustrated  in  the 
following  examples: 


Entity  and  set  declaration: 
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PERMANENT  ENTITIES 

EVERY  COUNTRY  OWNS  A  FLEET 

EVERY  SHIP  HAS  A  NAME  ,  BELONGS  TO  A  FLEET 
AND  OWNS  A  CREW 
TEMPORARY  ENTITIES 

EVERY  MAN  HAS  A  SERIAL. NO,  A  RATING,  A  SKILL 
AND  BELONGS  TO  A  CREW 

Use  of  LIST  statements: 

(a)  REMOVE  THE  FIRST  MAN  FROM  CREW(VESSEL) 

LIST  ATTRIBUTES  OF  MAN 

(b)  FOR  EACH  MAN  IN  CREW(SHIP)  WITH  RATING  >  4, 

FIND  PERSON  =  THE  FIRST  MAN 
LIST  ATTRIBUTES  OF  MAN  CALLED  PERSON 

(c)  READ  N. COUNTRY  AND  N.SHIP 
CREATE  EACH  COUNTRY  AND  SHIP 


LIST  ATTRIBUTES  OF  EACH  COUNTRY 

(d)  LIST  ATTRIBUTES  OF  EACH  MAN  IN  CREW(QUEEN.MARY) 

(e)  LIST  ATTRIBUTES  OF  SHIP  CALLED  4 

(f)  LIST  NAME,  ( VALUE ( I )  +  COST J/RATE, ATTRIBUTES  OF  SHIP  CALLED  TITANIC 


4-14  SOME  SAMPLE  PROGRAMS 

The  programs  in  this  section  illustrate  the  concepts  and  state¬ 
ments  described  thus  far.  The  reader  is  urged  to  follow  them  closely 
and  identify  the  features  used  in  each  of  them.  A  useful  exercise  is 
the  reformulation  and  reprogramming  of  the  examples  using  different 
concepts  and  statements. 


4-14-1  An  Inventory  Control  Program 

PREAMBLE  NORMALLY  MODE  IS  INTECER 
PERMANENT  ENTITIES 

EVERY  ITEM  HAS  A  RP  "REORDER  POINT", 

AN  SCL  "STOCK  CONTROL  LEVEL", 

A  STOCK  '  'AMOUNT  ON  HAND"  , 

A  DUE.  IN  "AMOUNT  ORDERED,  NOT  RECEIVED", 
A  DUE. OUT  "AMOUNT  OF  BACK  ORDERS" 


END 
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MAIN  READ  N. ITEM  CREATE  EACH  ITEM 
FOR  EACH  ITEM,  READ  RP,SCL .STOCK, DUE. IN, DUE. OUT 
'READ'  IF  DATA  IS  ENDED,  GO  TO  FINISH  ELSE 
READ  TRANSACTION,  ITEM,  QUANTITY 
IF  TRANSACTION=  1  "PROCESS  AN  ORDER 

IF  STOCK  GE  QUANTITY,  SUBTRACT  QUANTITY  FROM  STOCK 
GO  TO  REORDER  CHECK 

OTHERWISE  "INSUFFICIENT  STOCK"  ADD  QUANTITY-STOCK  TO  DUE. OUT 

LET  ST0CK=0 

'REORDER. CHECK' 

IF  STOCK  +  DUE. IN-  DUE. OUT  LE  RP, 

LET  ORDER=  SCL+DUE. OUT-DUE. IN-STOCK 
PRINT  1  LINE  WITH  ORDER, ITEM  THUS 
ORDER  ***  UNITS  OF  STOCK  NO.  *** 

ADD  ORDER  TO  DUE. IN 
REGARDLESS  GO  READ 
OTHERWISE  "PROCESS  A  RECEIPT" 

SUBTRACT  QUANTITY  FROM  DUE. IN 

IF  DUE. OUT  >  QUANTITY,  SUBTRACT  QUANTITY  FROM  DUE. OUT 
GO  TO  READ 

ELSE  ADD  QUANTITY-DUE. OUT  TO  STOCK 
LET  DUE ,0UT=0  GO  TO  READ 
'FINISH' 

LIST  ATTRIBUTES  OF  EACH  ITEM 

STOP 

END 


Two  good  exercises  for  the  reader  are:  (1)  identify  each  customer 
and  generate  a  shipment  notice  for  each  order,  and  (2)  keep  track  of 
to  whom  stock  is  owed  (backorders)  and  ship  it  out  according  to  some 
rational  policy. 


4-14-2  Two  Illustrations  of  Set  Ranking  by  Function  Attributes 

As  described  in  Sec.  4-09 ,  sets  are  normally  ranked  on  either 
the  order  in  which  entities  are  filed  in  them  (FIFO  and  LIFO)  or  on 
attributes  of  their  member  entities.  In  the  latter  case,  while  cas¬ 
cading  can  be  used  to  resolve  ties,  only  simple  single-attribute 
ranking  comparisons  can  be  made.  Complex  ranking  comparisons  can  be 
devised  using  function  attributes  as  ranking  variables.  The  following 
short  program  illustrates  how  a  function  attribute  can  be  used  to 
define  a  ranking  variable  that  is  the  weighted  average  of  several 
attribute  values. 
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PREAMBLE 

TEMPORARY  ENTITIES 

EVERY  JOB  HAS  A  LABOR. COST,  A  MATE RIAL. COST, 
AN  OVERHEAD,  A  PROFIT,  A  RANKING  FUNCTION 
AND  BELONGS  TO  A  QUEUE 
PERMANENT  ENTITIES 
EVERY  MACHINE  OWNS  A  QUEUE 
DEFINE  QUEUE  AS  A  SET  RANKED  BY  HIGH  RANKING 
END 


MAIN 

READ  N. MACHINE  CREATE  EVERY  MACHINE 
'NEW. JOB'  CREATE  A  JOB 

READ  LABOR. COST,  MATERIAL. COST,  OVERHEAD 
AND  PROFIT  "INITIAL  VALUES" 

READ  MACHINE  "TO  DO  THIS  JOB 
FILE  JOB  IN  QUEUE  (MACHINE) 


REMOVE  JOB  FROM  QUEUE  (MACHINE) 


GO  TO  NEW. JOB 


END 


ROUTINE  FOR  RANKING  GIVEN  J 
DEFINE  J  AS  AN  INTEGER  VARIABLE 
RETURN  WITH  (LABOR. COST  *  2  +  MATERIAL. COST  *  3 
+  OVERHEAD  +  PROFIT  *  4)  /  10 
END 

The  preamble  defines  RANKING  as  a  function  attribute  of  JOB  and 
as  the  attribute  by  which  jobs  are  ranked  when  they  are  filed  in  a 
set  QUEUE(M) .  The  routine  RANKING  provides  a  proct^^re  for  computing 
a  ranking  value;  the  routine  is  invoked  each  time  a  JOB  is  filed.  It 
is  used  to  compute  a  ranking  value  for  the  JOB  being  filed,  and  for 
all  the  jobs  against  which  this  Job's  ranking  value  must  be  compared 
in  order  to  insert  it  properly, 

A  somewhat  different  use  of  function  attribute  is  found  in  the 
following  program,  which  uses  an  attribute  of  the  first  member  of  a 
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set  owned  by  an  entity  as  the  ranking  value  for  that  entity's  filing 
in  another  set. 


PREAMBLE 

TEMPORARY  ENTITIES 

EVERY  JOB  OWNS  A  ROUTING,  BELONGS  TO  A  QUEUE  AND  HAS  A  VALUE 
EVERY  PATH  HAS  AN  ORIGIN,  A  DESTINATION,  A  RANKING  FUNCTION 
AND  A  DISTANCE  AND  BELONGS  TO  A  ROUTING 
PERMANENT  ENTITIES 
EVERY  MACHINE  OWNS  A  QUEUE 
DEFINE  QUEUE  AS  A  SET  RANKED  BY  HIGH  RANKING 
DEFINE  ROUTING  AS  A  SET  RANKED  BY  LOW  DISTANCE 
DEFINE  RANKING  AS  AN  INTEGER  FUNCTION 
END 


ROUTINE  FOR  RANKING(J) 

DEFINE  J  AS  AN  INTEGER  VARIABLE 
RETURN  WITH  ORIGIN(F. ROUTING(J) ) 
END 


4-14-3  A  Lata  Analysis  Application 

PREAMBLE 

PERMANENT  ENTITIES 
EVERY  COUNTY  HAS  A  NAME  AND  A  STATE 
EVERY  YEAR  HAS  A  NATIONAL. GNP,  A  RC. PRICE. RC 
EVERY  COUNTY,  YEAR  HAS  A  POPULATION,  A  LOCAL. GNP,  AND 
A  LOCAL. GNP. PERCAPITA 

EVERY  YEAR,  CAR  HAS  A  NATIONAL. SALES,  A  PRICE 
AND  A  SALES. GNP. RC 

EVERY  COUNTY .YEAR, CAR  HAS  A  LOCAL. SALES, AND  A 
LOCAL. SALES. PERCAPITA 
DEFINE  NAME  AND  STATE  AS  ALPHA  VARIABLES 
DEFINE  LOCAL. GNP. PERCAPITA  AND  LOCAL. SALES. PERCAPITA 
AS  REAL  VARIABLES 
END 


MAIN  READ  N. COUNTY,  N. YEAR,  N.CAR 
CREATE  EVERY  COUNTY,  YEAR  AND  CAR 
FOR  EVERY  COUNTY,  DO  READ  NAME  AND  STATE 
ALSO  FOR  EVERY  YEAR, 

READ  POPULATION,  LOCAL. GNP 
LOOP 

FOR  EVERY  YEAR,  DO  READ  NATIONAL. GNP 
ALSO  FOR  EVERY  CAR, 

READ  NATIONAL. SALES  AND  PRICE 
LOOP 
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FOR  EVERY  COUNTY,  FOR  EVERY  YEAR,  FOR  EVERY  CAR, 

READ  LOCAL. SALES 

"COMPUTATIONS" 

FOR  EVERY  COUNTY,  FOR  EVERY  YEAR,  DO 

LET  LOCAL. GNP.PERCAPITA=  LOCAL. GNP/POPULAT ION 
FOR  EVERY  CAR 

LET  LOCAL . SALES . PERCAP I TA=  LOCAL. SALES/POPULATION 
LOOP 

FOR  EVERY  CAR,  FOR  EVERY  YEAR,  DO 
FOR  EVERY  COUNTY,  DO 

COMPUTE  A=  SUM,  B»  SUM. OF. SQUARES  OF  LOCAL. GNP. PERCAP ITA 
COMPUTE  C=  SUM  OF  LOCAL. SALES. PERCAPITA 

COMPUTE  D=  SUM  OF  LOCAL. GNP. PERCAPITA  *  LOCAL. SALES. PERCAP ITA 
LOOP 

LET  SALES. GNP. RC  =  (N.COUNTY*D-A*C)  /  (N.COUNTY*B-A**2) 

LOOP 

FOR  EVERY  YEAR  DO 

FOR  EVERY  CAR  DO  COMPUTE  A=SUM,B=SSQ  OF  PRICE 
COMPUTE  C=SUM  OF  SALES. GNP. RC 
COMPUTE  D=SUM  OF  PRICE*SALES.GNP.RC 

LOOP 

LET  RC. PRICE. RC=  (N.CAR*D-A*C)/(N.CAR*B=A**2) 

LOOP 

LIST  SALES. GNP. RC,  RC. PRICE. RC  AND  NATIONAL. GNP 


STOP 

END 

This  program  reads  data  on  auto  sales  and  prices  for  different 
population  units,  and  computes  regression  coefficients  that  allow  the 
following  graphs  to  be  drawn: 


for  a  given  year  and  car 


LOCAL. GNP. PERCAPITA 
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for  a  given  year 


The  reader  should  (1)  ensure  that  he  understands  the  computations 
the  program  performs  and  the  reason  why  the  individual  loops  are 
written  as  they  are,  and  (2)  rewrite  the  program  where  he  can  to  make 
it  more  efficient. 


4-14-4  An  Analysis  of  Prime  Numbers 

PREAMBLE  NORMALLY  MODE  IS  INTEGER 
THE  SYSTEM  OWNS  SOME  PRIMES 
TEMPORARY  ENTITIES 

EVERY  PRIME  HAS  A  VALUE  AND  BELONGS  TO  SOME  PRIMES 
END 

MAIN  READ  N 

FOR  1=  2  TO  N,  DO  "CREATE  PRIME  NUMBERS" 

FOR  EACH  PRIME  IN  PRIMES  WITH  MOD. F( I, VALUE)  =  0 
FIND  THE  FIRST  CASE 

IF  NONE,  CREATE  A  PRIME  LET  VALUE  =  I 
FILE  PRIME  IN  PRIMES 
REGARDLESS 
LOOP 

FOR  EACH  I  OF  PRIMES  WITH  S.PRIMES(I)  NE  0, 

COMPUTE  MAX=  THE  MAX(I)  OF  VALUE (S. PRIMES ( I ) ) -VALUE ( I ) 
PRINT  2  LINES  WITH  N,VALUE(MAX),VALUE(S.PRIMES(MAX))  THUS 
MAXIMUM  GAP  AMONG  THE  FIRST  ****  PRIMES 
OCCURS  8ETWEEN  ****  AND  **** 

STOP 

END 


4-14-5  Dynamic  Definition  and  Use  of  Array  Attributes 

The  following  statements  Illustrate  how  to  create,  use,  and 
destroy  array  attributes: 


Declaration: 


PREAMBLE 

TEMPORARY  ENTITIES 

EVERY  ENTITY  HAS  AN  ARRAY 
DEFINE  ARRAY  AS  AN  INTEGER  VARIABLE 
DEFINE  DUMMY  AS  A  2-DIMENSIONAL  ARRAY 
END 


Creation: 


CREATE  AN  ENTITY 
RESERVE  DUMMY (*,*)  AS  3  BY  N 
LET  ARRAY (ENTITY)  =  DUWiY(*,*) 
LET  DUMMY (*,*)  ■  0 


Use: 


FILE  ENTITY  IN  SET 


REMOVE  THE  LAST  ENTITY  FROM  THE  SET 
LET  DUMMY(*,*)  =  ARRAY(ENTITY) 

FOR  1=  1  TO  DIM. F( DUMMY (*,J ) ) ,  READ  DUWY(I.J) 


Destruction: 


REMOVE  ENTITY  FROM  SET 
LET  DUMMY (*,*)  *  ARRAY (ENTITY) 
RELEASE  DUMMY 
DESTROY  ENTITY 


4-14-6  Using  " Optional "  Attributes 


In  certain  situations,  especially  ones  involving  data  processing, 
entitles  are  defined  that  have  a  large  number  of  attributes,  many  of 
which  are  constants.  For  example,  in  census  records  the  code  n/a 
(not  applicable)  appears  in  many  places.  When,  In  such  situations, 
it  1.'  necessary  to  conserve  the  amount  of  space  allocated  to  individual 
entity  records,  function  attributes  can  be  used  to  define  "optional 
attributes."  These  are  actually  entities  stored  in  a  special  set  only 
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lf  their  values  differ  from  specified  default  values.  Thus,  If  the 
optional  attribute  RAPID. TRANSIT  is  other  than  0  for  a  particular 
city,  a  record  for  it  will  appear  in  that  city's  optional  attribute 
set.  Otherwise,  the  value  of  RAPID. TRANSIT  would  be  found  in  the 
default  list  (D£FAULT(1)*0). 

The  following  declarations  and  programs  show  how  to  set  up  and 
use  optional  attributes. 

Declarations: 

PREAMBLE 

TEMPORARY  ENTITIES 

EVERY  CITY  OWNS  SOME  OPTIONS,  HAS  A  NAME, 

A  POPULATION,  A  STATE  AND  AN  OPTIONAL 
FUNCTION 

EVERY  OPTION  HAS  A  VALUE  AND  A  CODE  AND 
BELONGS  TO  SOME  OPTIONS 
DEFINE  NAME  AND  STATE  AS  ALPHA  VARIABLES 
DEFINE  WHICH  AS  A  "GLOBAL"  VARIABLE 
DEFINE  DEFAULT  AS  A  1 -DIMENSIONAL  ARRAY 


END 

Function  attribute  definition: 

ROUTINE  OPTIONAL  (J) 

DEFINE  I  AND  J  AS  INTEGER  VARIABLES 
FOR  EACH  I  IN  OPTIONS(J), 

WITH  CODE ( I )  *  WHICH, 

FIND  THE  FIRST  CASE 
IF  FOUND,  RETURN  WITH  VALUE(I) 

ELSE  RETURN  WITH  DEFAULT(WHICH) 

END 

Program  initialization  to  set  up  optional  attribute  structure: 

MAIN 


e 

RE AO  N  RESERVE  DEFAULT ( * )  AS  N 

READ  DEFAULT  "LIST  OF  DEFAULT  VALUES" 


CREATE  A  CITY 
UNTIL  MODE  IS  ALPHA, 

CREATE  AN  OPTION 
READ  COOE  AND  VALUE 
FILE  OPTION  IN  OPTIONS 

LOOP 


END 


Program  statements  thac  employ  optional  attributes: 

LET  WHICH  »  1  "INDICATING  THE  FIRST 
"OPTIONAL  ATTRIBUTE 

LET  X  »  OPTIONAL (CITY ) 

If  an  entity  CITY  has  an  entity  filed  In 
Its  OPTIONS  set  with  COOE  *  1 ,  X  is  set 
to  the  VALUE  of  the  entity 

if  an  entity  CITY  has  no  such  entity  filed 
in  OPTIONS,  X  is  set  to  DEFAULT ( I }  ' 

The  program  can  be  nude  even  more  straightforward  if  functions 
are  used  to  define  the  optional  attributes  themselves.  If  RAPID. TRANSIT 
is  an  optional  attribute  of  CITY,  it  can  be  defined  and  used  by  the 
following  statements: 

DEFINE  RAPID. TRANSIT  AS  AN  INTEGER  FUNCTION 

ROUTINE  RAPID, TRANSIT! CITY ^ 

DEFINE  CITY  AS  AN  INTEGER  VARIABLE 
LET  WHICH  -  1 

RETURN  WITH  OPTIONAL (CITY) 

END 


The  following  diagram  shows  the  record  structure  for  a  temporary 
entity  of  type  CITY  that  haa  several  "normal  attributes”  and  several 
"optional  attributes": 
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CITY 


1  is  the  code  for 
RAPID. TRANSIT 


4  is  the  code  for 

EDUCATION. EXPENSE 


57  is  the  code  for 
MUNICIPAL. DEBT 


4-15  DELETION  OF  SET  ROUTINES 

Certain  routines  are  automatically  generated  for  each  defined 
set  during  the  processing  of  a  program  preamble.  Sets  .declared  aa 
FIFO  (explicitly  or  implicitly),  LIFO,  or  RANKED  require  different 
routines  to  perform  their  operations.  Each  generated  routine  is 
tailored  to  individual  program  specif i nations  reflecting  such  things 
as  set  attribute  deletions  and  cascaded  set  rankings. 

The  most  generally  defined  set,  an  unranked  one  declared  as 
either  FIFO  or  LIFO,  has  seven  routines  generated  for  it.  Four  are 
for  filing  and  three  for  rer-ving.  The  routines  are  named,  and  their 
functions  stated  in  Table  4-6. 
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Table  4-6 


SET  MANIPULATION  ROUTINES 


Routine 

Generated  Name 

Function 

File  first 

A. set 

Files  an  entity  first  or  ranked 

File  last 

B.set 

Files  an  entity  last 

File  before 

C.set 

Files  an  entity  before  a  specified 
entity 

File  after 

D.set 

Files  an  entity  after  a  specified 
entity 

Remove  first 

X.set 

Removes  the  first  entity 

Remove  last 

Y.set 

Removes  the  last  entity 

Remove  specific 

Z.set 

Removes  a  specified  entity 

A  set  declared  by  the  statement 

DEFINE  QUEUE  AS  A  FIFO  SET 

thus  has  seven  routines,  A.QUEUE,  B. QUEUE,  . Z. QUEUE  generated  for 
it. 

Ranked  sets,  by  their  definition,  do  not  permit  filing  first, 
last,  or  before  or  after  a  specific  entity  without  attention  to  the 
specified  set  ranking.  Hence,  ranked  sets  generate  four  routines, 
there  being  only  one  file  routine. 

In  addition,  certain  set  operations  are  impossible  if  specific 
set  attributes  are  not  present.  For  instance,  filing  before  is 
impossible  in  a  LIFO  set  if  the  predecessor  attribute  has  been  deleted. 

Tabic  4-7  shows  the  set  attributes  that  must  be  present  for  the 
indicated  set  operations  to  be  performed. 

Since  all  set  attributes  are  not  required  for  all  set  operations. 
Table  4-7  can  be  used  to  determine  which  attributes  to  delete  in 
ore?  o  save  memory  space.  For  example,  if  a  program  only  files 
an<  oves  first,  the  set  attributes  L  and  P  can  be  deleted  without 
pe  r.  If  they  are  not  deleted,  the  generated  programs  keep  track 
of  update  them  anyway. 

pecific  set  routines  can  also  be  deleted  to  conserve  memory 
s  when  their  associated  operations  are  not  used  in  a  program. 
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Table  4-7 


SET  OPERATION-SET  ATTRIBUTE  RELATIONSHIPS 


Set  Operation 
Mnemonic 

Set  Name 
Prefix 

Required  Set 
Attribute 

FF 

A. 

F.S 

FL 

B. 

F.L.S 

FB 

C. 

F.S.P 

FA 

D. 

F.S 

RF 

X. 

F.S 

RL 

Y, 

F.L.S,  P 

RS 

z. 

F.S.P 

To  do  so,  a  list  of  the  set  operation  codes  shown  in  Table  4-7  is 
attached  to  a  DEFINE  SET  statement  in  the  following  form: 

, WITHOUT  set  operation  code  list  ROUTINES 

The  comm?  is  optional.  A  typical  program  might  contain  the  statement 

DEFINE  QUEUE  AS  A  FIFO  SET  WITHOUT  P  AND  N 
ATTRIBUTES  AND  WITHOUT  FB,  FA  AND  RS  ROUTINES 

In  sophisticated  programs  wherein  a  programmer  wants  to  use  set 
statements  but  wants  to  provide  his  own  set  operation  routines,  all 
seven  routines  can  be  deleted.  The  codes  F  and  R  delete  the  four  file 
and  three  remove  routines,  respectively.  A  complete  range  of  set 
specifications  is  thus  possible.  Mere  mention  of  a  set  name  in  EVERY 
statements  calls  for  all  three  set  attributes  for  the  owner  and  member 
entities,  and  all  seven  set  routines.  Additional  definition  in  a 
DEFINE  SET  statement  can  selectively  delete  set  attributes  and  set 
routines.  The  extreme  statement 

DEFINE  set  AS  A  SET  WITHOUT  F.l,P,S,M  AND  N 
ATTRIBUTES  WITHOUT  F  AND  R  ROUTINES 

removes  all  mechanisms  that  make  set  operations  possible. 

*4-16  LEFT -HANDED  FUNCTIONS 

Functions  are  normally  thought  of  as  "right-handed,"  in  the  sense 
that  they  appear  on  the  right-hand  side  of  the  equal  sign  in  assignment 
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statements  .  They  are  used  for  computing  values,  rather  than  for 
storing  them. 

One  example  of  a  right-handed  SIMSCRIPT  II  function  is  OUT.F, 
which  is  used  to  access  characters  in  the  current  output  buffer  (see 
Sec.  3-11).  The  statement  LET  A  =  OUT.F(l),  where  A  is  an  ALPHA 
variable,  extracts  the  first  character  from  the  current  output  buffer 
and  assigns  its  value  to  A.  The  single  character  is  left-adjusted 
within  A  and  followed  by  blanks. 

Defining  a  function  as  "left-handed"  indicates  that  it  receives 
values,  rather  than  that  it  computes  them.  SIMSCRIPT  II  allows  the 
function  OUT.F  to  be  used  in  both  a  right-handed  and  left-handed  manner. 
LEI  OUT . F ( 1 ) =A  takes  the  leftmost  character  from  the  ALPHA  variable  A 
and  stores  it  in  the  first  position  in  the  current  output  buffer. 

Any  function  can  be  defined  to  be  used  in  both  a  right-  and  left- 
handed  manner,  i.e.,  to  compute  a  value,  the  right-handed  version  of 
the  routine  is  called;  when  a  reference  is  made  in  a  left-handed  manner, 
i.e.,  to  store  a  value,  the  left-handed  version  is  called. 

No  rew  concepts  or  statements  are  involved  in  the  definition  of 
right-handed  routines,  for  all  the  functions  dealt  with  thus  far  have 
been  right-handed.  All  of  the  by  now  familiar  declarative  forms 

ROUTINE  name 

ROUTINE  name  GIVEN  argument 

ROUTINE  name  ( argument  list) 

indicate  that  the  statements  that  follow,  up  to  the  statement  END, 
define  a  computational  process,  hence,  a  right-handed  function.  In 
programs  that  use  both  right-  and  left-handed  functions,  the  word 
RIGHT  may  be  put  before  ROUTINE,  but  this  is  optional. 

A  left-handed  function  is  headed  by  one  of  the  forms  of  the 
ROUTINE  statement  shown  above,  preceded  by  the  word  LEFT,  as  in 

LEFT  ROUTINE  ACCESS  GIVEN  I  AND  J  and 
LEFT  ROUTINE  ALLOCATE 

In  addition  to  the  usual  mechanism  for  transmitting  input  argu¬ 
ment  values  to  a  function  when  it  Is  called,  a  left-handed  function 
must  have  a  way  of  receiving  a  right-hand-side  value.  A  statement 
of  the  form 
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ENTER  WITH  variable 


must  be  the  first  executable  statement  In  every  left-handed  routine. 

It  specifies  that  the  value  "computed  on  the  right"  is  to  be  stored 
in  the  named  variable,  which  can  be  local  or  global,  unsub3c.ripted, 
subscripted,  or  an  attribute,  for  use  within  the  routine.  From  there 
on,  a  left-handed  routine  functions  exactly  like  any  other  program; 
it  can  store  the  value,  perform  computations  with  it,  execute  input- 
output  statements,  etc.  The  following  example  illustrates  the  defini¬ 
tion  and  use  cf  right-  and  left-handed  routines: 

The  computational  section  of  this  program  (MAIN)  seems  to  deal 
with  simple  subscripted  variables.  Actually,  the  surrounding 
routines  and  the  preamble  define  the  data  structure  dealt  with. 

In  this  sense,  the  program  is  independent  or  the  structure  used 
for  storing  and  analyzing  its  data. 

PREAMBLE 

THE  SYSTEM  OWNS  SOME  DATA 
TEMPORARY  ENTITIES 

EVERY  SAMPLE  HAS  A  VALUE  AND  BELONGS  TO  SOME  DATA 
DEFINE  X  AS  A  REAL  FUNCTION 
DEFINE  VALUE  AS  A  REAL  VARIABLE 
END 


MAIN 

READ  N  FOR  1=1  TO  N,  READ  X( I) 

FOR  1=  1  TO  N-l,  WITH  X(I)  <  2*X(I+1) 

COMPUTE  M=  AVG,  V=  VARIANCE,  K=  NUMBER  OF  X(I)**2 
LIST  K,M,V 
STOP 
END 


RIGHT  ROUTINE  X{I) 

DEFINE  I,J,S  AS  INTEGER  VARIABLES 
IF  I  >  N.DATA, 

PRINT  1  LINE  WITh  I  THUS 

MEMBER  ***  OF  COLLECTION  X  DOES  NOT  EXIST 
STOP 
ELSE 

IF  1=1,  RETURN  WITH  VALUE( F.DATA) 

ELSE  LET  S=S.DATA( F.DATA) 

FOR  J=  1  TO  1-2,  LET  S*S.DATA(S) 

RETURN  WITH  VALUE(S) 

END 


I 
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LEFT  ROUTINE  X(I) 

DEFINE  I,J,S  AS  INTEGER  VARIABLES 
DEFINE  A  AS  A  REAL  VARIABLE 
ENTER  WITH  A 

IF  N.DATA=I-1 .CREATE  A  SAMPLE  CALLED  S 
FILE  S  LAST  IN  DATA 
GO  PLACE 

ELSE  IF  N.DATA  <  1-1 ,  PRINT  2  LINES  WITH  I, N. DATA  THUS 
TRYING  TO  CHANGE  THE  ***TH  VALUE  IN  A  COLLECTION 
WITH  ONLY  ***  MEMBERS 
STOP 

ELSE  IF  1*1,  GO  TO  PLACE  ELSE  LET  S=F.DATA 
FOR  J=  1  TO  1-2,  LET  S=  S.DATA(S) 

'PLACE'  LET  VALUE ( S ) *  A 
RETURN  END 


*4-17  MONITORED  ATTRIBUTES  AND  VARIABLES 


Thus  far,  program  names  representing  data  values  have  had  either 
memory  locations  or  programs  associated  with  them.  Names  defined  as 
variables  referred  to  values  stored  in  computer  words;  names  defined 
as  functions  referred  to  values  computed  or  stored  by  associated 
programs. 

A  new  data  type,  a  monitored  variable ,  has  both  a  storage  loca¬ 
tion  and  &  program  associated  with  it.  The  statements  required  to 
define  and  use  monitored  variables  parallel  the  statements  required 
to  define  variables  and  functions  and  to  implement  left-handed  functions. 

A  variable  (or  array  or  attribute)  is  defined  as  monitored  by  a 
statement  of  the  form: 


(a)  DEFINE  name  AS  A  VARIABLE  MONITORED  ON  THE  LEFT  or 

(b)  DEFINE  name  AS  A  VARIABLE  MONITORED  ON  THE  RIGHT  or 

(c)  DEFINE  name  AS  A  VARIABLE  MONITORED  ON  THE  RIGHT 

AND  TI'E  LEFT 


The  word  THE  before  RIGHT  and  LEFT  is  optional. 

Since  monitored  variables  have  data  values  as  well  as  programs 
associated  with  them,  mode  and  dimensionality  declarations  can  also 
be  Included,  as  in 

DEFINE  X  AS  A  REAL,  2-DIMENSIONAL  ARRAY  MONITORED 
ON  LEFT  AND  RIGHT 


Monitoring  on  the  right  and  on  the  left  is  ob 


d  through  programs 
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sicllar  to  righr-  and  left-handed  functions.  If  a  variable  is  declared 
as  monitored  on  the  right  (or  left),  a  right-handed  (or  left-handed) 
monitoring  routine  must  be  provided.  A  routine  is  able  to  perform  a 
monitoring  function  by  the  inclusion  of  one  executable  statement. 

The  statement  differs,  depending  upon  whether  the  routine  is  right- 
or  left-handed. 

The  task  of  a  right-handed  routine  is  to  return  a  data  value  to 
a  calling  program.  A  typical  right-handed  routine  ( not  performing  a 
monitoring  task)  looks  like: 

ROUTINE  EXAMPLE(I.J) 


statements  using  I  and  J 

RETURN  WITH  expression 
END 

The  routine  name  (EXAMPLE)  represents  a  program  name,  the  argument 
list  transmits  initial  values  for  I  and  J  from  a  calling  program  to 
EXAMPLE,  and  the  RETURN  WITH  statement  returns  a  computed  value  to  a 
calling  program. 

Used  for  monitoring,  a  routine  name  represents  both  data  and 
program.  EXAMPLE(K,5)  is  both  a  legitimate  subscripted  variable  and 
a  call  on  a  routine  with  arguments  K  and  5.  The  additional  statement 
needed  to  convert  a  "regular"  righc-hartded  routine  to  a  right-handed 
monitoring  routine  fetches  a  data  value  associated  with  a  variable 
and  makes  it  accessible  to  a  routine.  The  statement  is 

MOVE  TO  vamlable 

The  program 

ROUTINE  EXAMPLE ( I ,J) 

MOVE  TO  Q 

a 

a 

statements  using  I,  J,  and  Q 


RETURN  WITH  exvreas ion 
END 
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atarts  out  by  assigning  the  value  of  EXAMPLE(I,J)  to  Q,  which  then 
can  be  used  freely  in  the  routine.  The  MOVE  statement  variable  can 
be  local  or  global,  unsubscripced  or  subscripted,  an  attribute,  or 
ever,  a  left-handed  function. 

Except  for  defining  EXAMPLE  as  being  monitored,  no  other  change 
is  made  in  the  rest  of  the  program.  EXAMPLE  is  reserved  and  used 
regularly;  all  data  references  are  to  EXAMPLE ( I ,J ) ,  as  tnough  it  were 
a  simple  subscripted  variable. 

Used  for  left-handed  monitoring,  the  MOVE  statement  must  assign 
a  value  :o  the  data  cell  associated  with  a  monitored  variable.  The 
statement  that  does  this  is  of  the  fonn 

MOVE  FROM  arithmetic  expression 

The  value  of  the  arithmetic  expression  is  store!  in  the  variable 
referenced  by  the  routine  name  and  ins  arguments,  if  any,  e.g., 
EXAMPLE( I ,J ) .  The  form  of  a  typical  left-hand  monitoring  routine  is 

LEFT  ROUTINE  EXAMPLE ( I .J ) 

ENTER  WITH  Q 


statements  using  I,J,Q 


MOVE  FROM  expressi  on 

RETURN 

END 

A  value  is  transmitted  to  the  routine  by  the  ENTER  statement,  compu¬ 
tations  are  performed,  and  a  value  is  assigned  to  the  monitored  vari¬ 
able  by  the  MOVE  statement. 

The  following  short  programs  use  monitored  variables  in  several 
different  ways. 

(1)  Monitored  variables  uaed  for  data  editing,  where  the  monitored 
variable  feature  provides  two  important  benefits:  (a)  it  keeps  the 
operational  program  clear  of  data  checking  and  message  printing  state¬ 
ments,  making  it  easier  to  understand,  and  (b)  conversion  of  the  pro¬ 
gram  to  remove  the  editing  feature  can  be  accomplished  by  changing 
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only  one  preamble  card  and  throwing  away  two  routines;  the  operational 
program  is  unchanged.  However,  the  program  must  be  recompiled. 

PREAMBLE 

DEFINE  DATA  AS  A  RE AL , 2-D I MENS I OtiAL  ARRAY 
MONITORED  ON  THE  RIGHT  AND  THE  LEFT 
NORMALLY, MODE  IS  INTEGER 
DEFINE  M  AND  N  AS  VARIABLES 
END 

MAIN 

READ  N.M  RESERVE  DATA  AS  N  BY  M 
UNTIL  MODE  IS  ALPWA, 

READ  I.J,  DATA(I,J) 

FOR  1*1  TO  N,  FOR  J*1  TO  M,  DO 
IF  0ATA(I,J)*0 

IF  J  >  I,  LET  DATA  (I.J)  *  1 
GO  TO  L 

ELSE  LET  DATA(I.J)  *  -1 

ELSE 

'L*  LOOP 

SKIP  1  FIELD  "THE  ALPHA  FLAG" 

UNTIL  MODE  IS  ALPHA,  DO 
READ  I.J 

PRINT  1  LINE  WITH  I.J.  DATA(I,J!  LIKE  THIS 
THE  VALUE  OF  DATA(**,**)  IS  ******* 

LOOP 

STOP 

END 


ROUTINE  FOR  DATA(L.K) 

DEFINE  VALUE  AS  A  REAL  VARIABLE 
"THE  FETCHING  OF  DATA(L.K)  IS 
"INHIBITED  UNTIL  THE  SUBSCRIPTS  ARE 
"VERIFIED 

IF  L  <  0  OR  L  >  N  OR  K  <  0  OR  K  >  M,  STOP 
OTHERWISE... 

MOVE  TO  VALUE  "THE  VALUE  OF  DATA(L.K)  IS  FETCHED 

RETURN  WITH  VALUE 

END 

LEFT  ROUTINE  FOR  DATA(L.K) 

DEFINE  VALUE  AS  A  REAL  VARIABLE 
ENTER  WITH  VALUE 

IF  l  <  0  OR  L  >  N  OR  K  <  0  OR  K  >  M, 

RETURN  ' ' DON ' T  CHANGE  THE  VALUE 

' ‘OF  DATA(L.K)  IF  SUBSCRIPTS 
1 ' ARE  OUT  OF  BOUNDS 

OTHERWISE... 

MOVE  FROM  VALUE  "TO  DATA(L.K) 

RETURN 

END 
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(2)  Monitored  verleblea  used  for  date  transformations. 

PREAMBLE 

TEMPORARY  ENT  I  TIES 

EVERY  SAMPLE  HAS  AN  XVAL  AND  A  YVAL  AND 
BELONGS  TO  A  GRAPH 
PERMANENT  ENTITIES 
EVERY  SERIES  OWNS  A  GRAPH 
DEFINE  XVAl.  AND  YVAl  AS  REAL  VARIABLES 
MONITORED  ON  THE  RIGHT 

DEFINE  GRAPH  AS  A  SET  RANKED  BY  HIGH  YVAL  WITHOUT 
X  ATTRIBUTE,  WITHOUT  FB.FA.FL  AND  RS  ROUTINES 
NORMALLY,  MODE  IS  INTEGER 
END 

MAIN 

READ  N. SERIES  CREATE  EVERY  SERIES 
FOR  EACH  SERIES,  DO 
READ  N 

ALSO  FOR  I-  1  TO  N.DO 

CREATE  A  SAMPLE 
READ  XVAL  AND  YVAL 
FILE  SAMPLE  IN  GRAPH 

LOOP 

FOR  EACH  SERIES,  NOW  PLOT. GRAPH 

STOP 

END 

ROUTINE  TO  PLOT. GRAPH 
"ASSUME  XVAL  BETWEEN  0  AND  132 
"ASSUME  YVAL  BETWEEN  0  AND  LINES. V-4 
START  NEW  PAGE 

PRINT  1  LINE  WITH  SFRIES  AS  FOLLOWS 
PLOT  OF  SERIES  NUMBER  ** 

FOR  EACH  I  IN  GRAPH,  COMPUTE  X  AS  THE  MAXIMUM  OF  XVAL(I) 

PRINT  2  LINES  WITH  X,YVAL(F. GRAPH)  THUS 
X  RANGE  IS  0  TO  *•*.* 

Y  RANGE  IS  0  TO  **.* 

SKIP  1  OUTPUT  LINE 
FOR  EACH  I  IN  GRAPH,  00 

IF  I  -  F. GRAPH,  GO  TO  'W  ELSE 

SKIP  TRUNC.F{YVAL(I))  -  TRUNC . F ( YVAL ( P . GRAPH ( I ) ) )  OUTPUT  LINES 
'W'  WRITE  AS  B  TRUNC. F( XVAL ( I ) )  ♦  i, 

LOOP 

RETURN 

END 
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"  MONITOR  ROUTINES  CONVERT  DATA  VALUES 
"  BEFORE  THEY  ARE  PLOTTED. CONVERSION  IS 
"  OUTSIDE  THE  RIOTING  ROUTINE 
ROUTINE  FOR  XVAl(I) 

DEFINE  V  AS  A  REAL  VARIABLE 
MOVE  TO  V 

RETURN  WITH  LOG.E.F.(V)  "  FOR  EXAMPLE 
END 

ROUTINE  FOR  YVAL(I) 

DEFINE  V  AS  A  REAL  VARIABLE 
MOVE  TO  V 

RETURN  WITH  V**2  "  FOR  EXAMPLE 

END 

The  monitoring  routines  deliver  transformed  values  of  attribute* 
to  the  plotting  routine  without  changing  their  values  in  memory.  As 
there  are  no  left-handed  monitoring  routines,  XVAL  and  YVAL  are  stored 
as  they  are  read.  To  change  the  transformations,  one  need  only  change 
the  monitoring  routines;  MAIN  and  PLOT. GRAPH  stay  the  same. 

*4-13  SUBPROGRAM— A  NEW  VARIABLE  TYPE 

A  variable  declared  as  SUBPROGRAM  by  a  statement  of  the  form 
DEFINE  variable  Hat  AS  A  SUBPROGRAM  VARIABLE 
has  as  its  value  the  address  of  a  routine.  A"  assignment  such  as 
LET  X  -  ' SIN. F ' 

where  X  Is  a  SUBPROGRAM  variable,  stores  the  computer  address  of  a 
routine  (SIN.F  in  this  case)  In  a  variable.  The  computer  address  can 
be  thought  of  as  the  name  of  the  routine.  SUBPROGRAM  variables  serve 
the  purpose  of  allow'n£  routines  to  be  called  lndl rect !•? .  rather  than 
explicitly. 

A  tut  pneyrur  -*M  •  of  the  fora  'n.pv  '  Is  formed  hv  rn..  ...  a  Is, 

In  slng.c  quote*  the  name  of  an*-  routine  used  as  s  procedure  or  right- 

* 

handed  function,  either  present  in  ths  5IHSCREFT  II  library  or  U- ft  -d 
within  a  program.  A  subprogram  literal  can  be  used  to  assign  a  routine 
name  to  a  SUBPROGRAM  variable  in  an  aaaignment  atatwaei.t  or  through 


Except  for  In-line  function!  (tee  Table  2-*). 
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an  argument  list,  or  can  be  used  as  a  test  constant  in  a  logical  ex¬ 
pression.  Examples  (a),  (b),  and  (c)  illustrate  each  of  these  uses. 

DEFINE  RTN  AS  A  SUBPROGRAM  VARIABLE 

(a)  LET  RTN  *  ' DATA. TRANSFORM' 

(b)  CALL  PROGRAM  ( 'DATA. TRANSFORM' ) 

ROUTINE  PROGRAM  (RTN) 

DEFINE  RTN  AS  A  SUBPROGRAM  VARIABLE 
* 

CALL  RTN(Y)  YIELDING  X 

RETURN  WITH  X**3 
END 

(c)  IF  RTN  =  'DATA. TRANSFORM' ,  GO  TO  LI  ELSE 

SUBPROGRAM  variables  can  be  used  rather  than  actual  routine  names 
in  procedure  calls.  When  a  SUBPROGRAM  variable  appears  in  a  call  state¬ 
ment,  the  routine  name  stored  in  the  variable  is  used  in  the  routine 
call. 

One  must  be  careful  to  distinguish  between  the  direct  and  indirect 
use  of  a  SUBPROGRAM  variable,  however.  If  X  is  defined  as  a  SUBPROGRAM 
array  in  a  statement  such  as: 

DEFINE  X  AS  A  1- DIMENSIONAL,  SUBPROGRAM  ARRAY 

the  statement 

(a)  RESERVE  X(*)  AS  10 

allocates  10  data  words  to  X  itself;  the  statement 

(b)  RELEASE  X 

releases  the  space  allocated  to  X;  but  the  statement 

(c)  RELEASE  X(7) 

releases  the  routine  whose  name  is  stored  in  X(7).  When  all  the  ele¬ 
ments  of  X  are  referred  to,  as  In  (a)  and  (b),  X  itself  is  the  object 
of  a  statement.  When  a  particular  element  of  X  is  mentioned,  as  in 
(c),  an  indirect  routine  reference  is  implied. 
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If  X  is  a  right-hand  monitored,  2-dimensional  array,  two  steps 
are  needed  to  release  both  the  array  and  its  monitoring  routine. 

RELEASE  X  releases  the  array  X(*,*) 

LET  Y=  'X'  stores  the  "name"  of  the  monitoring  routine  for  X 
in  the  SUBPROGRAM  variable  Y 

RELEASE  Y  releases  the  routine  named  X 

It  is  not  possible  to  release  a  left-handed  routine. 

SUBPROGRAM  variables  can  be  global  or  local,  SAVED  or  RECURSIVE, 
subscripted  or  unsubscripted.  They  are  initialized  to  zero  when  a 
program  begins  execution  or  routines  containing  them  (as  RECURSIVE 
variables)  are  called.  Routines  called  indirectly  through  SUBPROGRAM 
variables  do  not  have  their  arguments  checked  during  compilation  — 
the  clauses 

GIVING  i  AlGUMt..rS  and 
YIELDING  i  VALUES 

cannot  be  used  to  ensure  that  argument  conventions  are  being  obeyed. 

SUBPROGRAM  variables  can  also  be  used  to  call  functions  indi¬ 
rectly.  To  do  this,  the  following  is  required: 

(1)  The  SUBPROGRAM  variable  must  be  declared  to  be  INTEGER,  REAL 
or  ALPHA  mode  in  a  statement  of  the  form 

DEFINE  variable  list  AS  A  mode  SUBPROGRAM  VARIABLE 

All  functions  called  indirectly  through  this  variable  must  be  of 
the  declared  mode.  If  no  mode  is  declared  the  current  background  mode 
is  assumed. 

(2)  An  indirect  function  call  is  indicated  by  putting  a  dollar 
sign  ($)  before  a  SUBPROGRAM  variable  name.  If  F  is  a  SUBPROGRAM 
variable,  LET  X  =  F  assigns  the  name  of  a  routine  to  the  variable  X, 
while  LET  X  =  $F  computes  a  value  by  calling  on  a  function  whose  name 
is  stored  in  F  and  stores  it  in  X. 

As  with  routines  used  as  procedures,  when  a  subscript  list  follows 
a  SUBPROGRAM  variable  it  applies  to  the  function  called  ndirectly; 
and  not  to  the  SUBPROGRAM  variable  itself.  SUBPROGRAM  arrays  C3n  be 
defined  and  routine  names  can  be  stored  in  them  but  they  cannot  be 
used  to  call  upon  routines. 
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Several  examples  illustrate  the  definition  and  use  of  SUBPROGRAM 
variables: 

(1)  Use  of  SUBPROGRAM  variables  aa  right-handed  functions. 
PREAMBLE 

DEFINE  FUNCTION  AS  A  REAL,  SUBPROGRAM  VARIABLE 

DEFINE  N  AS  AN  INTEGER  VARIABLE 

DEFINE  X  AS  A  1 -DIMENSIONAL  ARRAY 

END 

MAIN 

READ  N  RESERVE  X(*)  AS  N 
READ  X 

LET  FUNCTION  »  'EXP.F' 

'COMPUTE'  FOR  I3  1  TC  N,  COMPUTE  5  AS  THE  SUM, 

M  AS  THE  MEAN  AND  V  AS  THE  VARIANCE 
OF  $FUNCTI0N(X(I )) 

PRINT  2  LINES  WITH  S,  M  AND  V  THUS 
SUM-  **.*  MEAN-  *.* 

VARIANCE-  *.** 

IF  FUNCTION-  'EXP.F', 

LET  FUNCTION-  'SQRT.F' 

GO  COMPUTE 

ELSE 

IF  FUNCTION-  'SQRT.F', 

LET  FUNCTION-  'LCG.IG.F' 

GO  COMPUTE 

ELSE 

STOP  END 

(2)  A  different  version  of  (.1), 

PREAMBLE 

DEFINE  FUNCTION  AS  A  REAL,  SUBPROGRAM  VARIABLE 
DEFINE  N  AS  AN  INTEGER  VARIABLE 
DEFINE  X  AS  A  1-DiMENSlONAL  ARRAY 
END 

MAIN 

READ  N  RESERVE  X{*)  AS  N 
READ  X 

CALL  PPOCFSS  DATA  GIVEN  ' EXP.F ' 

CALL  PROCESS. DATA  6IVEN  'SQRT.F' 

CALL  PROCESS. DATA  GIVEN  'LOG. 10. F' 

STOP 

END 
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ROUTINE  TO  PROCESS. DATA(J) 

DEFINE  J  AS  A  SUBPROGRAM  VARIABLE 
DEFINE  I  AS  AN  INTEGER  VARIABLE 
FOR  I  *  1  TO  N,  COMPUTE  S  AS  THE  SUM, 

M  AS  THf  AN0  v  AS  THE  VARIANCE 
OF  $J(X(I)) 

PRINT  2  LINES  WITH  S,  M  AND  V  THUS 
SUM-  **.*  MEAN-  *.* 

VARIANCE-  *.* 

RETURN 

END 

(3)  SUBPROGRAM  mode  variable  used  for  program  control. 
PREAMBLE 

DEFINE  ROUTER  AS  A  SUBPROGRAM  VARIABLE 
DEFINE  DATA  AS  A  REAL,  1-DIMENSIONAL  ARRAY 
DEFINE  STOCK  AND  BORROW.BIN  AS  VARIABLES 
END 

MAIN 

RESERVE  DATA(*)  AS  3 
LET  ROUTER-  'INPUT' 

'A'  CALL  ROUTER 

LIST  DATA,  STOCK,  BORROW.BIN 
IF  ROUTER  =  0,  STOP 
ELSE  GO  TO  A 
END 

ROUTINE  INPUT 
READ  DATA 

IF  DATA(I)  -  0  LET  ROUTER-  'RECEIPT' 

ELSE  LET  ROUTER-  'SHIPMENT' 

RETURN 

END 

ROUTINE  RECEIPT 
ADD  DATA{2)-1  TO  STOCK 
ADD  1  TO  BORROW.BIN 
LET  ROUTER-  'INPUT' 

RETURN 

END 

ROUTINE  SHIPMENT 
IF  DATA(2)  <  STOCK, 

SUBTRACT“bATA(2)  FROM  STOCK 
PERFORM  SHIPPING. NOTICE 
LET  ROUTER-  'INPUT' 

RETURN 

ELSE  LET  ROUTER-  'BORROW' 

RETURN 

END 
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ROUTINE  SHIPPING. NOTICE 
PRINT  1  LINE  WITH  DATA(2),  DAT  A ( 3 )  THUS 
SHIP  ***  UNITS  TO  CUSTOMER  ***** 
RETURN 
END 

ROUTINE  TO  BORROW 

LET  DIFF  *  DATA ( 2 )  -  STOCK 

IF  DIFF  <  BORROW.BIN, 

ADD  DTFF  TO  STOCK 
SUBTRACT  DIFF  FROM  BORROW.BIN 
LET  ROUTER*  'SHIPMENT' 

RETURN 

ELSE  PRINT  1  LINE  WITH  DATA(3)  THUS 
CAN  NOT  FILL  ORDER  FOR  CUSTOMER  ***** 
IF  DATA(3)  >  100, 

LET  ROUTER*  0 
RETURN 
OTHERWISE 

LET  ROUTER*  'INPUT' 

RETURN 

END 


4-19  TEXT— A  Nh w  MODE 


The  TEXT  mode  is  declared  for  either  attributes,  variables,  or 
functions  by  the  usual  statements 

NORMALLY,  MODE  IS  TEXT  or 
DEFINE  name  AS  A  TEXT  VARIABLE 

TEXT  variables  store  character  strings  of  arbitrary  length  through  a 
dictionary  (symbol  table)  mechanism.  Character  strings  are  stored  in 
seta,  the  "value"  of  a  TEXT  variable  being  a  pointer  to  a  particular 
string.  Several  TEXT  variables  with  the  same  value,  i.e.,  with  the 
same  character  string  assigned  to  them,  have  the  same  pointer  value. 

A  character  string  is  only  stored  once.  Once  stored,  subsequent 
attempts  to  store  identical  strings  only  retrieve  existing  pointer 
values. 

A  character  string  can  be  entered  into  a  program  in  four  ways: 

The  statement 


READ  variaLle  list 


-273- 


where  variable  has  been  declared  as  TEXT,  reads  a  word,  (defined  in 
the  footnote  on  p.  120)  in  free-form.  If  X  and  Y  are  TEXT,  the  state¬ 
ment  READ  X  AND  Y  when  reading  the  following  data  card 

column  number 

0000000001 111111111 2222222222333 
1 23456789012345678901 2345678901 2 
ANT I D I SE STABL I SHMENTARI AN I SM  IS 

assigns  the  string  ANT 1 01 SESTABL I SHMENT ARI AN ISM  to  X  and  the  string 
IS  to  Y. 

The  statement 

READ  variable  AS  T  e 

illustrates  a  format  for  inputting  TEXT  data.  The  arithmetic  expres¬ 
sion  associated  with  a  TEXT  variable  must,  of  course,  be  positive. 

If,  in  performing  a  formatted  TEXT  read,  the  end  of  a  data  card  is 
encountered  before  e  characters  have  been  read,  a  new  card  is  read 
and  reading  of  the  character  string  continues.  The  statement 

READ  TEXT. VAR  AS  B  1 ,  T  400 

defines  an  input  character  string  of  400  characters.  All  characters 
encountered  in  a  formatted  TEXT  read  are  considered  part  of  the  text. 
The  statement 

INPUT  text  Hat 

uses  a  special  delimiting  character  to  mark  off  successive  TEXT  vari¬ 
ables  in  a  free-form  style  statement.  The  delimiting  character  is 
stored  in  the  ALPHA  global  .ariable  MARK.V,  which  has  a  default  value 
of  MARK.V  may  be  changed  when  necessary.  A  text  list  is  a  list 

of  TEXT  variable  names  and  /,  B, and  S  formats.  The  statement 

INPUT  X,/,Y,S  10,  Z 

starts  reading  at  whatever  column  the  current  input  pointer  is  posi¬ 
tioned;  reads  all  the  characters  up  to  the  first  asterisk  as  the  char¬ 
acter  string  value  of  X;  skips  to  a  new  card;  reads  all  the  characters 
up  to  the  first  asterisk  as  the  character  string  value  of  Y;  skips 
over  the  next  10  columns  and  reads  all  the  characters  up  to  the  next 
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asterlsk  as  the  character  string  value  of  Z.  The  delimiting  character, 
*  in  this  cas*.  not  become  part  of  the  input  character  string. 

A  character  string  can  also  be  entered  into  the  dictionary  as  a 
TEXT  literal,  specified  as  | character  string |.  Within  a  TEXT  literal 
a  parallel  (j)  is  represented  by  an  underscore  (_). 

TEXT  variables  can  be  used  in  several  ways:  they  can  be  concat¬ 
enated  (linked  together),  compared,  erased,  or  displayed. 

The  system  function  CONCAT.F(A,B)  adds  the  character  string 
pointed  to  by  the  TEXT  variable  B  to  the  character  string  pointed  to 
by  the  TEXT  variable  A.  A  new  character  string  is  formed;  A  and  B 
remain.  For  example,  if  Aa  |SIMSCRIPT_J  and  B=  |II|,  the  statement 
LET  O  CONCAT.F(A.B)  sets  C*  j SIMSCRI PT_ I I | . 

Comparisons  are  made  possible  by  considering  all  arithmetical 
and  relational  operations  performed  with  TEXT  variables  and  functions 
as  INTEGER  mode.  Thus,  if  VI  and  V2  are  TEXT  mode  variables  or  func¬ 
tions,  the  logical  expressions  VI  *  V2,  VI  NE  V2,  V2  =  j character 
Btring\,  etc.,  are  true  or  false  depending  upon  whether  the  variables 
(functions)  have  the  same  pointer  values.  For  example,  if  VI  * 
|SPORTS_CAR|  and  V2  *  |SP0RTS_|  the  logical  expression  VI  =  V2  is 
false.  The  logical  expression  VI  3  C0NCAT,F(V1,  | CAR | ) ,  however,  is 
true.  The  comparison  VI  >  V2  is  meaningless,  as  it  expresses  an 
algebraic  relation  between  two  pointer  values. 

Statements  of  the  form 

LET  text  variable  ■  (character  string) 

do  either  of  two  things:  if  the  indicated  character  string  is  not 
already  in  the  dictionary,  it  is  placed  in  it  and  a  pointer  to  the 
string  stored  in  the  text  variable;  if  the  literal  string  is  already 
in  the  dictionary,  the  existing  pointer  is  used. 

Character  strings  pointed  to  by  TEXT  variables  are  destroyed  by 
statements  of  the  fonn 

ERASE  pointer  list 

The  entire  dictionary  can  be  erased  by  the  statement 

FOR  EACH  V  IN  THE  DICTIONARY,  ERASE  V 
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Slnce  more  than  one  TEXT  variable  can  point  to  the  same  text  data, 
the  ERASE  statement  must  be  used  with  care.  The  following  few  state¬ 
ments  show  why  care  Is  necessary. 

DEFINE  NAME  AND  LABEL  AS  TEXT  VARIABLES 
READ  NAME  AS  /,T  50 
LET  LABEL  *  NAME 

e 

e 

e 

ERASE  NAME 

The  text  pointed  to  by  LABEL  no  longer  exists.  The  FOR  phrase 
FOR  EACH  variable  IN  THE  DICTIONARY, 

can  be  used  like  any  other  FOR  phrase  to  control  a  program’s  operations. 

Each  TEXT  variable  has  an  INTEGER  attribute  whose  value  is  the 
number  of  characters  contained  in  the  variable.  Each  declaration 

DEFINE  name  AS  A  TEXT  VARIABLE 

defines  an  attribute  LENGTH. A (name ) .  To  illustrate:  LET  NAME* 

| J0HN_SMITH |  sets  the  TEXT  variable  NAftt  "equal  to"  the  character 
string  | J0HN_SMITH | .  After  execution  of  the  LET  statement,  LENGTH. A 
(NAME)  equals  10. 

TEXT  values  can  be  output  by  three  different  statements.  State¬ 
ments  of  the  form 

WRITE  variable  AS  T  e 

write  output  on  the  current  output  unit,  starting  at  the  column  pointed 
to  by  the  current  output  pointer.  More  than  one  line  is  printed  if 
the  expression  e  requires  it. 

Statements  of  the  form 

OUTPUT  text  liet 

commence  writing  at  the  current  output  pointer  column,  and  continue 
until  the  TEXT  data  stored  in  one  or  more  variables  are  exhausted. 

The  formats  B,S,/,  and  *  can  be  used  in  the  text  Hex.  for  editing. 

And  the  statement 


LIST  variable 
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displays  the  first  14  characters  of  a  TEXT  variable  In  the  standard 
LIST  format.  If  a  TEXT  variable  contains  fewer  than  14  characters, 
the  characters  displayed  are  left-adjusted. 

The  INPUT,  OUTPUT,  READ,  and  WRITE  statements  can  be  followed 
up  by  a  USING  clause  when  necessary. 

Conversion  between  TEXT  and  other  modes  is  provided  by  three 
functions: 

TTOA.F(pointer)  converts  the  first  fr>ur+  characters  of  the 

TEXT  value  pointed  at  to  ALPHA. 

ATOT.F(variable)  converts  the  four  characters  of  the  indi¬ 

cated  ALPHA  variable  to  TEXT,  storing  them 
in  the  dictionary,  if  necessary. 

ITOA. F( expression)  converts  the  first  four  digits  of  an 

INTEGER  expression  to  ALPHA. 

Table  4-8  shows  the  functions  provided  by  SIMSCRIPT  II  for  con¬ 
verting  from  one  data  mode  to  another. 


Table  4-8 

MODE  CONVERSION  FUNCTIONS 


INTEGER 

REAL 

ALPHA 

TEXT 

r  =  _ ■-=  ■ 

INTEGER 

— 

Automatic  or  REAL.F 

ITOA.F 

REAL 

INT.F  or  TRUNC.F 

. 

---- 

— 

---- 

ALPHA 

---- 

---- 

ATOT.F 

TEXT 

— 

— 

TT0A. F 

---- 

The  features  of  the  TEXT  mode  are  illustrated  <n  the  following 
examples : 

(1)  This  program  reads  a  number  of  sentences,  orders  them  accord¬ 
ing  to  their  length,  and  prints  their  out: 

Assuming  •  nH/\  variable  can  hold  four  characters. 
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PREAMBf  E  NORMALLY,  MODE  IS  INTEGER 
DEFINE  SENTENCE  AS  A  l-DIMENSIONAL, 

TEXT  ARRAY 
END 

MAIN 

READ  N  RESERVE  SENTENCE**)  AS  N 
LET  LET  MARK. V=  H." 

FOR  1=  I  TO  N,  INPUT  SENTENCE* I } 

'ANOTHER'  FOR  EACH  I  IN  THE  DICTIONARY, 

COMPUTE  MAX=  THE  MAXIMUM(I)  OF  LENGTH. A( I) 

IF  MAX=  O.STOP 
OTHERWISE 

OUTPUT  SENTENCE  (MAX) 

ERASE  SENTENCE  (MAX) 

GO  TO  ANOTHER 
END 

(2)  This  program  reads  a  deck  of  name  cards,  in  which  names  are 
punched  in  the  form  first  name  bla>.k  last  name ,  and  counts  the  number 
of  occurrences  of  different  names: 


PREAMBLE 

DEFINE  FIRST  AND  LAST  AS  TEXT  VARIABLES 

NORMALLY, MODE  IS  INTEGER 

END 

MAIN 

'READ'  IF  DATA  IS  ENDED, 

PRINT  1  LINE  WITH  JOHN , GREG, SMITH ,HH  THUS 
COUNTS  ARE  ***  ***  ***  ** 

STOP  ELSE 

READ  FIRST  AND  LAST 

IF  FIRST  EQUALS  1  JOHN  j  ,  ADD  1  TO  JOHN 

ELSE 

IF  FIRST  EQUALS  |  GREGORY!,  ADD  1  TO  GREG 
ELSE 

IF  LAST  EQUALS  ! SMITH  I ,  ADO  1  TO  SMITH 
ELSE 

IF  CONCAT . F (FI RST .LAST ) *  !  HORATIOHORNBLOWER ' 
ADO  I  TO  HH 
ELSE  GO  READ 
END 


())  These  program  aejpnenta  are  part  of  a  large  almulatlon  program 

PREAMBLE 

TEMPORARY  ENTITIES 

EVERY  JOS  HAS  A  DESCRIPTION,  A  PRIORITY,  a 
DUE. QATE  AND  MAY  BELONG  TO  A  QUEUE 
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DEFINE  DESCRIPTION  AS  A  TE XT  VARIABLE 
DEFINE  DUE. DATE  AS  A  REAL  VARIABLE 


END 


MAIN 


• 

"READ  DATA  FOR  JOBS" 

CREATE  A  JOB  START  NEW  INPUT  CARD 
READ  DESCRIPTION, PRIORITY, DUE. DATE 
AS  T  50,  I  10.  D  10.? 

REMOVE  THE  FIRST  JOB  FROM  fUEUE(5) 
LIST  ATTRIBUTES  OF  JOB 


END 

(4)  Three  ways  to  do  INTEGER  to  TEXT  conversion: 


I  la  an  INTEGER  variable 
T  la  a  TEXT  variable 


(a)  WRITE  I  AS  /,  I  10,  USING  THE  BUFFER 
INPUT  T  USING  THE  BUFFER 


lncludea  all 
leading  blanks 


(b)  WRITE  I  AS  /,  I  10  USING  THE  BUFFER 
READ  T  USING  THE  BUFFER 


starts  reading 
at  the  first  non¬ 
blank  character 


(c>  LET  T  -  AT0T.F( ITOA.FI I ) ) 

(5)  Use  of  TEXT  for  output  Massages. 


Routine  definition: 


ROUTINE  ERROR  GIVEN  T 

DEFINE  T  AS  A  TEXT  VARIABLE 

WRITE  T  AS  /,  B  10,  “THE  ERROR  IS\  T  25 

END 


Routine  use: 
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IF  VALUE  >  LIMIT,  CALL  ERROR( |  FATAL. VALUE  TOO  HIGH | ) 

STOP 

ELSE  IF  VALUE  •  LIMIT, CALL  £RROR( j  RECOVERABLE .CONTINUING] ) 
PERFORM  RECOVERY 

REGARDLESS 

(6)  Creating,  uaing,  end  deetrcvlng  er.  entity  having  a  TExl 
attribute : 


PREAMBLE 

TEMPORARY  ENTITIES 

EVERY  MAN  HAS  A  NAME, AN  AGE  AND  A  SALARY  AND  BELONGS 
TO  A  GROUP 

DEFINE  NAME  AND  N  AS  TEXT  VARIABLES 

THE  SYSTEM  OWNS  A  GROUP 

END 


MAIN 

LET  MARK.V  - 
'BACK'  READ  N 

IF  N  NE  |  DATA  GROUP  ENDED  j, 

CREATE  A  MAN 
LET  NAME  «  N 
READ  AGE  AND  SALARY 
FILE  THIS  MAN  IN  GROUP 
GO  BACK 
ELSE 

START  NEW  PAGE 

PRINT  2  LINES  WITH  N. GROUP  AS  FOLLOWS 
THIS  GROL*  CONTAINS  ***  PEOPLE 
NAME  AGE  SALARY 

FOR  EACH  MAN  IN  GROUP, DO 

REMOVE  THE  MAN  FROM  THE  GROUP 

WRITE  NAME, AGE  AND  SALARY  AS  B  15,  T  25,  2  I  10 

ERASE  NA* 

DESTROY  MAN 
LOOP 

IF  DATA  IS  ENDEO,  STOP 

ELSE  GO  BACK 

END 


<-.v  ;<v*c.rr  vr-i'ir  vx'.rzs:  v 

At  tlees  It  le  neceeeary  to  store  REAL  nunhers  In  INTEGER 
varies  js,  and  INTEGER,  ALPHA,  TEXT,  or  SUBPROGRAM  values  In  REAL 
variables.  When  this  Is  dons,  It  Is  generally  for  purpose  ou 

side  the  facilities  of  SIXSCglPT  II,  e.g.,  co*»unlrat  Ion  vlth  s 
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machine- language  subprogram  or  performance  of  a  rather  exotic  algo¬ 
rithm.  The  STORE  statement  permits  ary  computable  value  to  be 
assigned  without  conversion.  The  form 

STORE  arithmetic  expression  IN  variable 

expresses  a  command  to  compute  or  retrieve  a  value  and  to  assign  it 
to  a  stated  location. 

Table  4-9  reviews  the  forms  a  STORE  statement  can  take. 


Table  4-9 

STORE  STATEMENT  COMPONENTS 


Arithmetic  Expression 

Variable 

INTEGER  expression 
data  value 

Variable 

Attribute 

Left-handed  function 

array  pointer 
identification  number 

INTEGER  constant 

REAL  expression 

REAL  constant 

ALPHA  variable 

"ALPHA  literal" 

TEXT  variable 

Monitored  variable 

|TEXT  literal! 

SUBPROGRAM  variable 

'SUBPROGRAM  literal' 
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Chapter  5 

SIMSCRIPT  II:  LEVEL  5 


5-00  INTRODUCTION 

Unlike  Levels  1  through  4,  which  present  a  rather  general  pro¬ 
gramming  language.  Level  5  provides  concepts  and  programming  features 
for  a  specific  applications  area,  discrete-event  simulation.  Readers 
unfamiliar  with  this  subject  are  advised  to  read  any  one  of  a  number 
of  current  texts  or  P.  J.  Kiviat,  Digital  Computer  Simulation: 

Modeling  Concepts,  The  RAND  Corporation,  RM-5378-PR,  August  1967. 

While  some  methodological  comments  are  made  in  this  section,  it  is 
not  intended  as  a  text,  and  will  most  likely  prove  unsatisfactory  to 
persons  unfamiliar  with  the  subject.  Readers  who  have  done  simula¬ 
tions,  and  particularly  those  who  have  used  a  simulation  programming 
language,  should  ha/e  no  difficulty  following  the  section  without 
additional  preparation. 

Simulation  as  we  deal  with  it  is  the  use  of  a  numerical  model 
of  a  system  to  study  its  behavior  as  it  operates  over  time.  Dis  rete- 
event  simulation  deals  with  models  whose  entities  interact  with  one 
another  at  discrete  points  in  time,  rather  than  continuously.  This 
section  presents  concepts  and  statements  designed  to  aid  in  modeling 
systems  and  in  programming  them  so  that  they  can  be  simulated.  Its 
organization  reflects  subject  areas  that  are  Important  to  this  task: 

Sec.  5-01,  DESCRIBING  SYSTEM  DYNAMICS 
Sec.  5-02,  CONTROLLING  SYSTEM  DYNAMICS 
Sec.  5-02,  MODELING  ST AT I ST T CAL  PHENOMENA 
Sec.  5-04,  MODEL  DEBUGGING  AND  ANALYSIS 
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5-01  DESCRIBING  SYSTEM  DYNAMICS 

The  basic  unit  of  action  in  a  SIMSCRIPT  II  simulation  is  an 
activity ,  In  a  simulation  of  supermarket  operations,  we  might  find 
such  activities  as:  customer  selecting  merchandise,  customer  walking 
to  checkout  counter,  and  customer  checking  out,  among  others  that  deal 
with  different  aspects  of  supermarket  operations.  Two  Important  facts 
about  activities  are  (1)  that  they  take  time,  and  (2)  that  they 
(potentially)  change  the  state  of  a  system. 

When  one  constructs  a  simulation  model  he  must  provide  a  charac¬ 
terization  of  system  activities  that  enables  the  model,  when  operating, 
to  reproduce  the  time-dependent  behavior  of  the  system  being  simulated. 
That  is,  he  must  construct  the  activities  in  such  a  way  that,  when 
each  occurs,  the  system  state  changes  in  the  proper  way.  This  Imposes 
requirements  for  (1)  correctly  modeling  the  things  that  activities 
do,  and  for  (2)  sequencing  the  execution  of  subprograms  that  represent 
activities,  so  that  the  order  of  performance  of  activities  within  a 
model  corresponds  to  the  order  in  which  the  same  activities  occur  in 
the  real  system. 

The  concepts  embodied  in  Levels  1  through  4  are  the  stuff  that 
activity  descriptions  are  made  of.  Systems  are  described  (modeled) 
in  the  language  of  entities,  attributes,  and  sets. 

Keeping  track  of  simulated  time  and  organizing  subprograms  that 
represent  system  activities  are  the  primary  tasks  of  Level  b.  The 
central  concept  employed  is  that  of  an  event.  An  event  is  an  instant 
in  time  at  which  an  activity  starts  or  stops.  Usually,  an  activity 
is  bounded  by  two  avents,  as  shown  below: 

| - —machining  activity - - 

start  machining  stop  machining 

event  event 

| - driving  activity— — — — ^ 

scart  driving  stop  driving 

event  event 


Typical  activities 
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The  tine  between  events  that  represents  the  durstlon  of  sn 
activity  Is  slvsys  modeled  as  a  time-delay  factor.  Changes  In  a 
system  that  take  place  when  an  activity  starts  or  stops,  in  the 
instant  of  time  when  an  activity  begins  or  ends,  are  associated  with 
events  rather  than  activities.  This  is  the  crucial  difference  between 
discrete-event  and  continuous-time  slmulstors.  In  discrete-event 
simulation  languages  such  as  SIMSCR1PT  II,  state-changes  take  place 
only  at  specified  points  in  time  at  which  intet actions  between  system 
entities  occur.  In  continuous-time  simulation  languages,  interactions 
and  state-changes  take  place  continuously.  To  aodel  continuous 
changes,  either  analog  computers  or  numerical  integration  procedures 
must  be  employed. 

Some  activities  have  no  duration  end  are  modeled  as  single  events. 
These  are  activities  such  as  the  preparation  of  a  report  or  a  plan 
that  la  issued  periodically.  Activities  can  be  modeled  as  consuming 
zero  time  if  no  system  interactions  occur  during  the  activity  time, 
and  the  activity  time  is  short. 

To  model  an  activity  that  takes  some  time  to  perform,  one  speci¬ 
fies  two  events.  In  the  first  event,  the  necessary  tests  and  state- 
changes  are  made  to  put  the  activity  into  operation  and  an  instruction 
is  given  to  the  SIMSCRIPT  II  system  to  schedule  a  second  event  to 
occur  Sifter  the  passage  of  some  units  of  simulated  time.  When  this 
time  passes  and  the  second  event  is  called,  it  does  what  testing  and 
state-changing  it  must  to  terminate  Che  activity.  It  may  trigger  one 
or  more  subsequent  events.  The  keys  to  understanding  how  the  passage 
of  time  is  simulated  are  to  understand  (1)  that  events  tske  pises 
instantaneously,  (2)  that  events  are  modeled  as  SIMSCRIPT  II  sub¬ 
programs  that  arc  executed  In  xero  simulated  time,  and  (3)  that  the 
SIMSCRIPT  II  ayatem  contains  a  apeclal  routine,  called  a  tilling  rcuiint, 
that  accepts  requests  for  the  execution  of  evente  at  specified  future 
times  and  organize#  them  eo  thet  the  event  routine#  are  called  in  the 
oraer  of  their  time  scheduling,  and  hence  in  the  order  in  which  they 
should  occur  temporally.  Th«  timing  'outlne  also  keeps  track  of  simu¬ 
lated  system  time  with  an  artificial  system  clock. 

In  this  section  ws  limit  ourselves  to  the  definition  of  Important 
simulation  concepts,  such  as: 
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activity 

event 

timing  routine 
simulation  cloak 

event  scheduling  in  simulated  time 
instantaneous  changes  of  system  state 

and  the  presentation  of  statements  that  allow  these  concents  to  be 
defined  within  a  SIMSCR1PT  II  program,.  Section  S-02  goes  further 
into  how  the  timing  routine  works  and  hcv  events  are  scheduled  and 
executed. 

While  it  has  not  been  pointed  out  explicitly  why  the  normal  main- 
program-subprogram  structure  ie  not  adequate  for  the  simulation  task, 
it  is  not  difficult  to  reason  out  why  this  is  so.  Consider  the  follow¬ 
ing  situation:  a  simulation  model  has  one  kind  of  entity,  call  it  a 
MAN,  that  performs  one  kind  of  activity,  call  it  a  JOB.  Let  the  job 
activity  be  delimited  by  t,<e  two  events  START. JOB  and  END. JOB.  Let 
two  men  somehow  appear  and  be  given  jobs  to  perform,  l.e.,  the  simula¬ 
tion  must  execute  the  routine  START. JOB  for  each  MAN.  If  the  men 
arrive  at  the  same  time  these  programs  must  be  executed  simultaneously, 
l.e.,  in  parallel.  On  a  sequential  computer  this  is  impossible,  of 

course.  It  is  possible,  howevei,  to  execute  them  sequentially  without 

+ 

advancing  the  simulation  clock  after  the  first  event  has  occurred. 

If  two  events  occur  when  the  simulation  clock  has  the  same  time,  we 
can  think  of  them  as  happening  simultaneously. 

Now,  within  the  event  START. JOB  the  event  END. JOB  will  be  scheduled 
to  occur  after  some  job  performance  delay  time.  When  the  event  END. JOB 
occurs  for  the  first  MAN,  the  simulation  clcck  will  be  advanced  to 
some  higher  value,  l.e.,  it  will  indicate  that  simulated  time  has 
passed.  Therefore,  when  the  first  START. JOB  has  occurred  it  cannot 
CALL  its  respective  END. JOB  and  advance  the  simulation  clock  because 
the  second  START. JOB  has  net  yet  been  executed.  Some  statement  other 
than  CALL  Is  required  to  instruct  the  SlNSCRlPT  II  system  that  END. JOB 
is  to  be  called  after  all  events  that  have  lower  clock  times  associated 
with  them  have  been  called. 


* 

Section  f—'f  discusses  techniques  for  handling  complex  time 
interactions. 
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In  Fig.  5-1  two  Jobs  are  started  and  ended  at  different  times 
to  illustrate  the  concepts  of  event  occurrence  and  event  echeduling . 


Jobj  activity 


Fig.  5-la  --  Two  overlapping  activities 


Job[  activity 


Fig.  5-lb  --  Two  netted  activities 
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Table  5-1  lists  Che  order  in  which  subprograms  representing  Che 
START. JOB  and  END. JOB  events  of  Fig.  5-1  have  to  be  executed. 


Table  5-1 

FIGURE  5-1  EVENT  ORDER 


Fig.  5- la 

Fig.  5-lb 

Fig.  5-lc 

I 

START. JOBl 

START. JOBl 

/start.  jobA 

Time 

I  jin  parallel 

START. J0B2 

START. JO62 

\START.J0B2/ 

END. JOB] 

END.JOB2 

END. JOBl 

END.J0B2 

END. JOB] 

END.JOB2 

Two  classes  of  events  are  possible  in  any  simulation  model:  went* 
generated  within  the  model  and  events  fed  to  the  model  trow  the  outside 
world.  The  former  are  called  INTERNAL  or  ENDOGENOUS  events,  the  latter 
EXTERNAL  or  EXOGENOUS  events.  Each  has  a  routine  associated  with  It 
that  describes  actions  the  simulated  system  take*  when  the  event 
occurs.  The  difference  between  the  types  la  that  INTERNAL  events  are 
caused  by  the  explicit  reaction  of  a  model  to  its  operations  —  the 
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model  generates  or  "makes  up"  INTERNAL  events  as  It  progresses  — 
while  EXTERNAL  events  are  fed  to  a  model  from  a  data  source  (a  mag¬ 
netic  tape  or  disk,  or  punched  cards).  Generally,  EXTERNAL  events 
provide  stimuli  to  a  model  and  INTERNAL  events  react  to  them. 

Event  Declaration 

A  routine  is  declared  to  be  an  event  rather  than  a  callable  sub¬ 
program  by  use  of  the  word  EVENT  or  UPON  rather  than  ROUTINE  in  its 
first  statement.  Typical  event  declaration  statement*  are: 

EVENT  ARRIVAL  GIVEN  LOCATION  AND  ALTITUDE 

UPON  DEPARTING( DESTINATION) 

UPON  LEAVING  THIS  PLACE 

EVENT  ALLOCATION (SUM,  PERSON! ,  PERS0N2) 

These  statements  show  that  event  declarations  are  similar  to  routine 
declarations  in  that  they  can  have  input  arguments  and  can  use  the 
different  input  argument  forms  described  in  Sec,  2-19.  Events  cannot 
have  yielding  arguments  for  the  simple  reason  that  they  are  not  called 
directly  from  subprograms  and  have  no  place  to  return  output  values. 

The  general  form  of  an  event  declaration  statement  is: 

EVENT  name  optional  input  argument  list  or 

UPON  name  optional  input  argument  list 

Events  can  be  triggered  either  internally  or  externally.  If  they 
•re  triggered  Internally  it  is  by  something  called  an  event  notice 
(discussed  in  the  following  subsection);  if  they  are  triggered  ex¬ 
ternally  it  is  by  an  external  event  data  card  (discussed  in  Sec.  b-02) . 
Since  an  event  subprogram  can  occur  in  either  of  two  ways,  and  each 
of  these  ways  provides  a  different  source  of  data  for  the  event,  a 
logical  expression  is  provided  for  use  within  an  event  in  determining 
how  an  event  occurrence  was  triggered.  The  expression  compares  the 
keyword  EVENT  with  either  of  the  property  words  INTERNAl  or  EXTERNAL 
*nd  yields  a  true  or  filse  result.  The  form  of  the  expression  is 

EVENT  IS  property  or 

EVENT  IS  NOT  property 


as  in  the  statements 
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IF  EVENT  IS  INTERNAL,  GO  TO  INTERNAL. PROCESS  ELSE  and 
IF  EVENT  IS  EXTERNAL  AND  DATA  IS  ENDED,  STOP  OTHERWISE 

Succeeding  subsections  contain  examples  that  make  it  clear  why 
this  statement  is  necessary  and  how  xt  is  used. 

Internal  Events 

When  an  event  is  generated  within  a  program,  a  message,  called 
an  event  notice,  is  used  to  carry  Information  about  the  event  from 
the  generating  routine  to  the  SIMSCRIPT  II  timing  routine,  and  from 
it  to  the  event  when  its  turn  for  execution  cooes  about.  An  event 
notice  is  very  much  like  a  temporary  entity;  in  fact,  it  is  a  temporary 
entity  that  has  five  special  attributes.  The  first  of  these  contains 
the  simulated  time  at  which  the  event  represented  by  the  event  notice 
is  to  occur;  the  second  contains  an  event  type  code  that  tells  whether 
an  event  occurred  Internally  or  externally;  the  third,  fourth,  and 
fifth  are  attributes  fo*’  the  set  the  timing  routine  uses  to  keep  track 
of  scheduled  events.  These  attributes  are  called  TIMF.A,  EUNIT.A, 
P.EV.S,  S.EV.S,  and  M.EV.S,  respectively.  The  timing  set  is  sub¬ 
scripted  and  named  EV.S. 

Event  notices  can  have  attributes  that  are  either  variables  or 
functions,  and  can  own  and  belong  to  sets.  EVERY  statements  art  used 
to  declare  them. 

The  statement 

EVENT  NOTICES 

placed  before  a  group  of  EVERY  statements  notifies  the  compiler  that 
event  notices  rather  than  temporary  or  permanent  entity  declarations 
follow.  The  compiler  places  cha  special  attributes  in  the  first  five 
worde  of  each  event  notice  record;  the  programmer  doea  not  have  to 
name  them.  He  must  be  careful  not  to  place  attributes  of  his  own  In 
thess  first  five  words. 

Often,  event  notices  only  have  the  speclsl  attributes  and  no 
additional  attributes  or  set  pointers.  They  are  used  to  trigger 
events,  not  to  carry  Information  to  them.  When  this  Is  the  case, 
the  phrase 
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INCLUDE  event  notice  name  list 

is  added  to  Che  EVENT  NOTICES  statement  to  notify  the  compiler  that 
these  event  notices  exist  and  five-vcrd  event  notice  records  have  to 
be  defined  for  them.  A  typical  simulation  program  preamble  might 
start  off  like  this: 

PREAMBLE 

EVENT  NOTICES  INCLUDE  ARRIVAL,  WEEKLY. REPORT  AND  END. SIM 
EVERY  JOB. OVER  HAS  A  NEXT. JOB  AND  OWNS  SOME  RESOURCES 

When  created,  records  for  these  event  notices  look  like 


ARKIVAL  WEEKLY. REPORT  END. SIM  JOB. OVER 


word 

1 

TIME. A 

TIME. A 

TIME. A 

word 

2 

EUNIT.A 

EUNIT.A 

EUNIT.A 

word 

3 

P.EV.S 

P.EV.S 

P.EV.S 

word 

4 

S.EV.S 

S.EV.S 

S.EV.S 

word 

5 

M.EV.S 

■■  ■  .,m 

M.EV.S 

M.EV.S 

TIME. A 


EUNIT.A 


P.EV.S 


S.EV.S 


M.EV.S 


NEXT. JOB 
F. RESOURCES 
^RESOURCES 
N. RESOURCES 


Section  5-02  describes  hov  event  notices  are  created  and  used. 
It  Is  sufficient  at  this  point  that  the  reader  understand  flat  they 
are  created  and  destroyed  like  temporary  entitles,  and  u<ted  by  the 
SIMSCRIPT  II  timing  routine  to  organise  the  execution  of  events  In 
proper  time  sequence. 

The  reader  should  also  understand  at  this  point  that  It  la  pos¬ 
sible  to  have  many  events  of  the  sea*  kind  scheduled  to  occur  at  the 
same  or  different  tlmea  In  the  future.  *'or  example,  a  machine-shop 
simulation  having  an  ov*nt  END. JOB  that  signals  the  completion  of  a 
machining  operation  and  changes  the  state  of  the  simulated  system 
when  a  job  la  completed,  can  have  many  END. JOB  events  scheduled  and 
held  In  abeyance  by  the  timing  routine.  The*#  events  are  usually 
scheduled  to  take  plac-  at  different  times,  and  the  timing  routine 
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ls  able  Co  organize  them,  by  ranking  them  on  their  scheduled  occur¬ 
rence  timea  ao  Chat  Che  eventa  with  the  earlleat  (analleat)  event  tine 
are  selected  first.  If  two  events  of  the  sane  kind  happen  to  have 
the  saae  event  time,  the  tialng  routine  uses  a  first-scheduled,  first- 
occurs  rule  to  "break  the  tie."  The  order  in  which  events  are  executed 
is  determined  by  the  order  in  which  they  are  scheduled.  While  several 
events  can  take  place  at  the  same  instant  in  simulated  tlae  (the 
simulation  clock  has  the  saae  value  during  each  event)  there  are 
often  good  reaaons  for  wanting  to  give  priority  to  one  event  notice 
or  other.  The  BREAK  TIES  statement  accompllshee  this. 

A  statement  of  the  fora 

BREAK  event  none  TIES  BY  HIGH  attribute  name  or 
BREAK  event  name  TIES  BY  LOW  attribute  name 

gives  priority  to  the  event  with  the  high  (low)  attribute  value  when 
two  or  aore  event  notices  of  the  same  type  have  the  saae  event  tlae. 

The  attributes  are,  of  course,  ones  that  have  been  defined  In  EVERY 
statements  for  the  event  naaed.  In  cases  where  store  than  one  set  of 
tie-breaking  attributes  are  needed,  clausea  of  the  form 

,  THEN  BY  HIGH  attribute  none  or 
,  THEN  BY  LOW  attribute  name 

can  be  added  to  the  BREAK  TIES  atateaent.  As  many  may  be  added  aa 

are  necesaary. 

Eventa  defined  by  the  atateaents 
EVENT  NOTICES 

EVERY  ARRIVAL  HAS  A  VALUE,  A  DUE. DATE  AND  A  PRIORITY 

can  ;;ave  tlae  reeolved  among  competing  event  notices  by  stateaents 

such  as 

(a)  BREAK  ARRIVAL  TIES  8Y  HIGH  PRIORITY 

(b)  BREAK  ARRIVAL  TIES  BY  HIGH  PRIORITY,  THEN  BY  LOW  DUE. DATE 

(c)  BREAK  ARRIVAL  TIES  BY  HIGH  VALUE.  THEN  BY  LOW  PRIORITY. 

THEN  BY  HIGH  DUE. DATE 

In  (a),  aa»ng  ARRIVAL  event  notice*  scheduled  to  occur  at  the 
saae  simulated  time,  the  event  notice  with  the  largest  PRIORITY  attri¬ 
bute  will  occur  first.  In  (b),  among  event  notice*  scheduled  to  occur 
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at  Che  ease  simulated  time  and  having  identical  PRIORITY  value*,  the 
notice  vlch  the  smallest  DUE. DATE  will  occur  flrat.  And  similarly 
for  (c)  and  ocher  variations. 

Conflicts  between  different  kinds  of  events  are  of  alallar  Impor¬ 
tance.  It  often  happens  chat  several  different  events  are  scheduled 
for  the  seas  time,  as  for  example,  the  arrival  of  a  Job  j  the  comple¬ 
tion  of  a  task,  and  the  preparation  of  a  management  report.  Resolving 
these  conflicts  is  important  in  situations  where  events  compete  for 
the  same  resources  or  have  some  effect  upon  one  another.  A  statement 
of  the  form 

PRIORITY  ORDER  IS  event  name  list 

places  an  ordering  upon  the  events  named  so  that  in  cases  where  event 
notices  of  different  kinds  have  the  same  event  time,  the  event  notice 
of  the  higher-priority  event  type  is  selected  first.  Priority  in 
this  case  corresponds  to  position  in  the  PRIORITY  statement;  the  first 
event  named  is  given  the  highest  priority.  If  no  PRIORITY  statement 
appears  In  a  program,  events  are  given  priority  In  the  order  in  which 
they  appear  in  the  preamble.  In  either  INCLUDE  or  EVERY  statements. 

If  only  a  subset  of  the  events  of  a  program  are  listed  in  a  PRIORITY 
statement,  the  remaining  events  are  given  lower  priority  than  the 
ones  listed,  and  are  ranked  among  themselves  in  the  order  In  which 
they  appear. 

The  following  preamble  Illustrates  the  use  of  BREAK  TIES  and 
PRIORITY  statements  in  a  typical  simulation  program: 

PREAfffiLE 

EVENT  NOTICES  INCLUDE  EN0.0F.J0B  AND  SHIFT. CHANGES 
EVERY  CAR. ARRIVAL  HAS  A  VALUE  AND  AN  IDENTITY 
EVERY  TRUCK. ARRIVAL  HAS  A  LOAD. WEIGHT  AND  A  DENSITY 
EVERY  START. JOB  HAS  A  VEHICLE  AND  A  CREWSIZE 

BREAK  CAR. ARRIVAL  TIES  BY  HIGH  VALUE 

BREAK  TRUCK. ARRIVAL  TIES  BY  LOW  DENSITY,  THEN  BY  HIGH  LOAD. WEIGHT 

BREAK  START. JOB  TIES  BY  LOW  CREWSIZE 

PRIORITY  ORDER  IS  TRUCK. ARRIVAL ,  CAR. ARRIVAL,  START. JOB,  END. OF. JOB, 
SHI  FT. CHANGES 

DEFINE  IDENTITY,  LOAO. WEIGHT,  AND  CREWSIZE  AS  INTEGER  VARIABLES 

DEFINE  VEHICLE  AS  AN  ALPHA  VARIABLE 

END 


-292-- 


External  Events 

Events  can  be  triggered  from  outside  a  simulation  model  by  de¬ 
claring  them  to  be  EXTERNAL  EVENTS.  Some  events  are  triggered  only 
externally.  Other  events  are  triggered  only  internally;  for  them, 
only  EVENT  NOTICES  declarations  are  used.  Some  events  are  triggered 
in  both  ways.  We  have  described  how  event  notices  are  defined  and 
left  the  discussion  of  how  they  are  used  to  the  next  section;  we  do 
the  same  for  external  events,  describing  now  how  they  are  defined  and 
leaving  the  discussion  of  how  they  are  used  to  Sec.  5-02. 

An  event  is  defined  as  having  an  external  trigger  by  using  its 
name  in  a  statement  of  the  form: 

EXTERNAL  EVENTS  ARE  event  name  Hat 

When  an  event  name  appears  in  an  EXTERNAL  EVENT  statement  and  is 
not  declared  as  an  event  notice,  provision  is  made  to  create  a  five- 
attribute  event  notice,  named  event,  each  time  a  data  card  containing 
the  event  name  appears  on  rn  external  event  unit.  The  event  notice 
is  of  the  form: 

word  1 
word  2 
word  3 
word  4 
word  5 

The  first,  third,  fourth,  and  fifth  attributes  have  the  same 
meaning  as  in  the  preceding  subsection;  the  second  attribute  contains 
the  numoer  of  the  input  unit  on  which  information  about  the  event  is 
contained.  External  event  input  units  are  defined  in  a  statement  of 
the  form: 

EXTERNAL  EVENT  UNITS  ARE  device  name  list 

In  this  statement,  device  names  can  be  given  as  integer  constants  or 
as  variables.  If  variables  are  used,  they  must  be  initialized  to 
device  name  values  before  the  start  of  simulation.  If  no  EXTERNAL 
EVENT  UNITS  statement  appears,  the  standard  input  unit  is  assumed  to 


TIME. A 

EUNIT.A 

P.EV.S 

S.EV.S 

M.EV.S 
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be  a  source  of  external  event  data.  If  several  input  devices  are 
used,  the  standard  input  unit  must  be  listed  with  them  if  it  is  to 
be  a  source  of  external  events. 

A  simulation  program  having  the  events  ARRIVAL  and  REPORT  might 
contain  the  following  statements  in  its  preamble: 

EXTERNAL  EVENTS  ARE  ARRIVAL  AND  REPORT 
EXTERNAL  EVENT  UNITS  ARE  DAILY. ARRIVALS,  WEEKLY. ARRIVALS, 

AND  5 

These  statements  indicate  that  the  SIMSCRIPT  II  system  must  be  prepared 
to  execute  the  events  ARRIVAL  and  REPORT  as  external  events,  and  that 
three  input  devices  are  to  be  used  to  input  external  event  triggers. 

The  programmer  indicates  mnemonically  that  he  intends  to  put  informa¬ 
tion  about  arrivals  that  occur  daily  on  one  input  device  and  informa¬ 
tion  about  arrivals  that  occur  weekly  on  another.  The  SIMSCRIPT  II 
system  attaches  no  significance  to  the  names;  it  merely  knows  that 
three  input  devices  are  to  be  used. 

Events  that  are  only  triggered  externally  can  be  given  tie-breaking 
priority  over  other  external  events  and  over  internally  generated  events 
by  putting  their  names  in  a  PRIORITY  statement.  Using  the  above  state¬ 
ments  as  an  example,  the  statement 

PRIORITY  ORDER  IS  REPORT  AND  ARRIVAL 

states  that  if  simultaneous  events  come  up  on  the  multiple  event  units, 
REPORT  events  are  to  be  executed  before  ARRIVAL  events.  It  is  not 
possible  to  attach  priorities  to  external  event  units,  e.g.,  service 
DAILY. ARRIVALS  before  WEEKLY. ARRIVALS.  Only  events  may  be  given 
priorities. 

Events  that  occur  both  internally  and  externally  can  be  given 
priority  over  other  kinds  of  events  but  cannot  be  ranked  among  them¬ 
selves  by  a  BREAK  TIES  statement.  As  only  the  internally  generated 
event  notices  have  ranking  attributes,  the  externally  triggered  event 
notices  compete  with  them  on  a  first-come,  first-served  basis. 

5-02  CONTROLLING  SYSTEM  DYNAMICS 

Three  things  must  be  understood  about  system  dynamics:  how  the 
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SIMSCKIPT  II  timing  routine  organizes  events  so  that  they  are  executed 
properly  in  simulated  time;  how  internal  events  are  scheduled;  and  how 
external  event  data  are  prepared  and  input.  The  first  three  parts  of 
this  section  address  these  issues. 

The  Timing  Routine 

Every  simulation  program  contains  the  statement 
START  SIMULATION 

which  instructs  the  SIMSCRIPT  II  operating  system  to  start  taking 
Instructions  from  the  simulation  timing  mechanism.  For  there  to  be 
something  to  do  at  the  start  of  simulation,  a  programmer  must  initialize 
the  system  state  and  provide  initializing  events  that  set  the  system 
in  motion.  A  typical  simulation  main  program  is  organized  as: 

MAIN 

local  declarations 

initialization  of  entities,  attributes 
and  sets 

initialization  of  events 
specification  of  external  event  units 
START  SIMULATION 
control  statements 

END 

When  the  timing  mechanism  finds  nothing  to  do,  i.e.,  no  events 
are  scheduled,  control  passes  to  the  statement  after  START  SIMULATION. 

As  long  as  events  are  being  executed,  the  timing  routine,  represented 
in  the  main  program  by  the  START  SIMULATION  statement,  is  in  control. 

One  way  to  end  a  simulation  is  to  cease  scheduling  future  events  and 
let  the  timing  mechanism  automatically  branch  beyond  the  START  SIMULATION 
statement  when  all  currently  scheduled  events  are  completed. 

The  heart  of  the  * iming  routine  is  a  singly  subscripted  set  in 
which  event  notices  are  filed.  Each  subscript  value  denotes  a  dif¬ 
ferent  event  class;  in  a  simulation  with  six  different  event  classes 
there  are  six  different  sets.  The  global  variable  EVENTS. V  has  as 
its  value  the  number  of  event  classes.  The  timing  routine  set  is 
named  EV.S,  which  stands  for  "events  set";  it  has  the  attributes 
F,  P,  S,  and  M  and  the  routines  RS  and  RK  are  defined.  Internal 
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events  with  BREAK  TIES  conditions  are  put  into  their  proper  sets  by 
routines  named  C. event;  internal  events  not  named  in  BREAK  TIES  state¬ 
ments,  and  external  events,  are  put  into  their  sets  by  a  routine  named 
A.EV.S,  which  is  the  standard  FILE  routine  for  the  set  EV.S. 

Each  event  has  a  global  variable  l. event  associated  with  it  that 
denotes  the  subscript  value  of  the  event  class  in  the  subscripted 
events  set.  In  a  program  without  a  PRIORITY  statement,  values  are 
assigned  to  these  variables  in  ascending  order  as  event  names  appear. 
When  a  PRIORITY  statement  is  used,  values  are  assigned  in  the  order 
in  which  events  appear  in  the  statement.  An  example  illustrates  these 
points: 


Preamble : 


PREAMBLE  NORMALLY  MODE  IS  INTEGER 
EXTERNAL  EVENTS  ARE  ARRIVAL  AND  STOP. SIMULATION 
EVENT  NOTICES  INCLUDE  ARRIVAL.  END. OF. JOB  AND  SHIFT. CHANGE 
EVERY  START. JOB  HAS  A  VALUE,  A  DUE. DATE  AND  A 
PROCESS. TIME  AND  BELONGS  TO  A  ROUTING. SET 
PERMANENT  ENTITIES.... 

EVERY  MACHINE  HAS  A  CAPACITY  ANO  A  RATE  AND  OWNS  A 
WAITING. LINE 
TEMPORARY  ENTITIES.... 

EVERY  JOB  HAS  A  TIME. WANTED,  OWNS  A  ROUTING. SET  AND 
BELONGS  TO  A  WAITING. LINE 

PRIORITY  ORDER  IS  STOP. SIMULATION,  SHIFT. CHANGE,  END. OF. JOB, 

^TART  lflR  AND  ARRTVAl 

BREAK  START. JOB  TIES  BY  LOW  DUE. DATE,  THEN  BY  HIGH  VALUE 
END 


Meaning: 

Five  events  are  defined:  ARRIVAL,  STOP. SIMULATION,  END. OF. JOB, 
SHIFT. CHANGE,  and  START. JOB:  EVENTS. V*5.  The  subscripted  set  EV.S 
therefore  has  five  subscript  values.  These  values  are  specified  by 
the  order  of  the  events  in  the  PRIORITY  statement  and  are: 

I. STOP. SIMULATION*!,  I. SHI  FT. CHANGE*?,  I. END. OF. JOB-3,  I. START. JOB-4, 
and  I. ARRIVAL-5. 

The  subscripted  variable  F.EV.S  has  five  elements,  one  for  each 
event  class.  Each  event  notice  has  five  attributes,  TIME. A,  EUNIT.A, 
P.EV.S,  S.EV.S  and  M.EV.S;  START. JOB  has  six  additional  attributes. 

The  routines  A.EV.S,  X.EV.S,  and  Z.EV.S  are  generated  to  file 
events  not  mentioned  in  BREAK  TIES  statements  in  their  proper  sets 
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and  remove  the  first  event  or  a  specific  event  from  a  set.  The  routine 
C. START. JOB  is  generated  to  file  event  notices  in  EV.S  (I .START, JOB) 
according  to  the  rankings  specified  in  the  BREAK  TIES  statement. 

Simulation  event  control  is  maintained  in  the  following  way: 

(a)  Every  time  an  internal  or  external  event  is  scheduled  it  is 
filed  in  its  proper  set.  Events  are  filed  in  their  seta  in  the  order 
in  which  they  are  to  be  executed,  i.e.,  the  event  with  the  smallest 
event  time  is  filed  first. 

(b)  When  control  returns  to  the  timing  mechanism  from  an  event, 
or  from  the  main  program,  the  next  event  to  be  performed  is  selected 
by  taking  the  event  with  the  smallest  event  time  I rom  its  set.  This 
is  done  by  searching  the  event  sets  in  the  order  specified  by  their 
1. event  variables,  and  keeping  the  identification  of  the  event  notice 
with  the  smallest  event  time.  By  doing  this,  two  events  of  the  same 
class  will  have  their  tie  resolved  by  the  ranking  within  the  set,  and 
two  events  of  different  classes  with  the  same  event  time  will  have 
their  tie  resolved  by  keeping  the  identification  of  the  first  one 
found. 

Figure  5-2  pictures  the  way  the  events  of  the  above  preamble  are 
organized.  Normally,  a  programmer  does  not  deal  with  the  set  EV.S 
directly,  or  with  the  variables  F.EV.S,  P.EV.S,  S.FV.S,  M.EV.S,  TIME. A, 
and  EUNIT.A.  He  inserts  events  into  the  event  sets  with  special  state¬ 
ments  and  data  Inputs,  and  has  them  removed  from  the  sets  automatic¬ 
ally.  Unen  an  event  Is  removed,  its  event  time  TIME. A  is  transferred 
to  the  simulation  clock  TIME.V,  becoming  the  updates  simulation  time, 
and  control  is  transferred  to  the  event  routine. 

Scheduling  Internal  Events 

We  have  shewn  how  an  event  notice  is  taken  from  its  event  set  by 
the  timing  routine  and  used  to  initiate  the  execution  of  an  event. 

The  details  of  how  an  event  is  executed  once  its  notice  is  received 
are  discussed  a  little  later  in  this  section.  Here  we  discuss  how 
an  event  notice  for  an  internal  event  is  filed  in  its  appropriate 
event  set. 

The  statement 


m 


E 
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SCHEDULE  AN  event  AT  time  expression 

creates  an  event  notice  of  clasa  event,  sets  Its  TIME. A  attribute  to 
the  value  of  the  time  expression,  and  files  the  event  notice  In  the 
proper  set  for  that  event  class.  The  words  CAUSE  and  RESCHEDULE  are 
synonyms  for  SCHEDULE.  Situations  often  exist  where  they  are  more 
expressive  of  the  task  being  perforaed.  The  event  notice  la  actually 
a  temporary  entity.  The  stateaent  specifies  that  a  temporary  entity 
of  a  certain  else  be  created,  with  Its  Identification  nuaber  stored 
In  a  global  variable  with  the  scae  naae  as  the  entity,  and  be  used  for 
scheduling  the  future  occurrence  of  an  event  of  that  class.  The 
stateaent  Is  equivalent  to  a  stateaent  of  the  fora: 

SCHEDULE  AN  event  CALLED  event  AT  time  expression 

where  event  is  the  global  variable  associated  with  the  entity  class. 

One  can  Just  as  easily  write  a  SCHEDULE  stateaent  with  a  different 
variable  naae,  as  In 

SCHEDULE  AN  ARRIVAL  CALLED  RUSH. ORDER  AT  time  expression 

If  an  event  notice  already  exists  (it  may  have  been  created  pre¬ 
viously),  one  can  specify  that  It  be  used  In  a  SCHEDULE  stateaent  by 
using  the  word  THIS  rather  than  AN,  as  in 

SCHEDULE  THIS  ARRIVAL  AT  time  expression 

This  Inhibits  creation  of  a  new  entity.  The  Identification  number 
of  the  event  notice  that  Is  to  be  used  is  aasumed  to  be  stored  in  the 
global  variable  ARRIVAL.  The  stateaent  fora 

SCHEDULE  THIS  entity  CALLED  variable  AT  time  expression 

says  that  an  Identification  nuaber  of  an  event  notice  of  the  class 
entity  Is  stored  In  . ariabie  and  Is  to  be  used  In  a  scheduling  stateaent. 

Several  variations  of  these  stateaent  fora*  are  permitted.  The 
words  A  and  AN  are  synonyas,  aa  are  the  words  THIS,  THE,  and  THE  ABOVE. 
Thus  one  can  say: 

(a)  SCHEDULE  AN  ARRIVAL  AT  tirne  expression 

(b)  SCHEDULE  THE  ABOVE  ARRIVAL  CALLED  RUSH  AT  tine  expression 

(c)  CAUSE  THIS  ARRIVAL  AT  time  expression 


-299- 


Statnment  (a)  creates  an  event  notice  before  scheduling;  stacements 
(b)  nnd  (c)  use  event  notices  of  type  ARRIVAL,  whose  identification 
numbers  are  stored  in  RUSH  and  ARRIVAL,  respectively. 

If  an  event  notice  has  attributes,  as  in  START. JOB  defined  on 
p.  295,  values  can  be  assigned  to  then  in  two  ways:  through  standard 
attribute  (entity)  references  in  LET  statements  and  through  the  SCHEDULE 
statement  itself.  Recall  that  the  event  START. JOB  was  defined  by  the 
statement 

EVENT  NOTICES.... 

EVERY  START. JOB  HAS  A  VALUE,  A  DUE. DATE  AND  A  PROCESS. TIME 
AND  BELONGS  TO  A  ROUTING. SET 

This  means  that  every  START. JOB  entity  record  looks  like: 

word  1 
word  2 
word  3 
word  4 
word  5 
word  6 
word  7 
word  8 
word  9 
word  10 
word  11 

The  first  five  attributes  of  ever)'  event  notice  cannot  be  used 
by  a  programmer.  He  cannot  pack,  equivalence,  or  delete  thea.  He  can 
do  anything  he  wishes  with  attributes  he  defines. 

A  statement  of  the  fora 

SCHEDULE  AH  event  GIVEN  expreeaion  lim  AT  t;ne  exp-retai  an 

(1)  Usee  the  time  expression  to  set  TIME . A 'e:vnt  ■ . 

(2)  Sets  EUNIT.A  tf’vn:.1  to  isro.  Indicating  that  the  event  is 
being  scheduled  internally.* 


TIME. A 
EUNJT.A 
P.EV.S  ~ 
S.EV.S 
M.EV.S 
VALUE 
DUE. DATE 
PROCESS. TIME 
P. ROUTING. SET 
S. ROUTING. SET 
M. ROUTING. SET 


See  discuasion  on  p.  )04. 
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(3)  Files  the  event  notice  in  EV.S( I .event)  thereby  setting  the 
pointers  P.EV.S  and  S.EV.S  and  the  membership  attribute 
M.EV.S. 

(4)  Assigns  the  values  given  in  the  expression  list  to  the  suc¬ 
cessive  attributes  of  the  event  notice,  starting  with  tho 
attribute  following  M.EV.S.  If  fewer  expressions  are  licteo 
than  there  are  attributes,  the  remaining  attributes  are  sen 
to  zero.  If  no  expression  list  appears  and  an  event  notice 
has  attributes  defined,  they  are  all  set  to  zero. 

Thus  the  statement 

SCHEDULE  A  START. JOB  GIVEN  COST+LABOR,  DATE.REQUESTED+1 
AND  STANDARD. TIME ‘SAFETY. FACTOR  AT  tine  errression 

assigns  the  values  of  C0ST+LAB0R,  DATE . REQUESTED^ ,  and  STANDARD. TIME* 
SAFETY. FACTOR  to  the  attributes  VALUE,  DUE. DATE,  and  PROCESS. TIME, 
respectively,  and  sets  the  membership  attributes  of  ROUTING. SET  to  zero. 

In  conformance  with  the  conventions  followed  in  CALL  statements, 
the  following  input  argument  forms  are  equivalent  in  a  SCHEDULE  statement: 

GIVEN  expression  list 

GIVING  expression  list 
(  expression  list  ) 

So  far  the  discussion  has  relied  on  an  intuitive  understanding 
of  how  time  is  represented  within  a  simulation  program.  We  now  clarify 
this  issue. 

Time  is  represented  in  SIMSURIPT  II  by  a  REAL  global  variable 
named  TIME.V.  At  the  start  of  simulation,  TIME.V  is  zero;  from  then 
on,  TIME.V  is  Increased  to  simulate  the  passage  of  real  time.  Each 
time  an  event  is  selected  from  the  event  sets,  the  value  of  the  time 
attribute  of  the  selected  event,  TIME. A,  is  used  to  update  TIME.V. 
Occasionally,  the  value  of  TIME.V  will  be  the  same  before  and  after 
the  updating.  When  this  is  so,  the  events  that  occur  during  this  time 
are  considered  to  happen  simultaneously. 

The  phrase 

AT  f  :'•>*  orrrvi* tion 

at  the  end  of  a  SCHEDULE  statement  states  when  In  the  future  a  specified 
event  Is  to  occur.  The  expression  Is  REAL  valued  and  car.  be  thought 
of  as  a  dimensionless,  dec  tmal-valued  quantity.  It  is  t'  is  time  t  at 
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la  stored  In  the  TIME. A  attribute  of  the  event  notice,  that  la  coapared 
against  other  event  times  during  next  event  selection,  and  that  becomes 
TIME.V  when  che  event  occurs.  An  abeolute  time  la  always  specified  In 
an  AT  phrase.  The  phrase 

AT  0.00 

Is  usually  used  to  Initialize  events  that  start  off  a  simulation. 

AT  TIME.V  ♦  1.5 

Illustrates  an  Incremental  form  of  che  phrase.  It  states  that  the 
event  being  scheduled  la  to  occur  at  the  current  simulation  time  plus 
1.5  time  units.  If  the  basic  time  unit  la  interpreted  as  hours,  the 
phrase  Is  read,  "In  one  and  one-half  hours  from  now";  If  the  basic 
time  unit  Is  Interpreted  as  microseconds,  the  phrase  Is  read  as,  "in 
one  and  one-half  microseconds  from  new." 

In  most  simulations,  simulated  time  corresrords  to  real  time,  end 
the  time  units  employed  are  minutes,  hours,  and  davs.  SIMSCRIPT  II 
assumes  that  the  units  of  TIME.V  are  days  (e.g.,  1.47  is  one  and  forty- 
seven  one-hundredths  days)  and  permits  events  to  be  scheduled  with  a 
relative  time  specification.  The  phrases 

IN  internet:  a  errresjior  DAYS 

IN  arithmetia  erpresai  rr  MINUTES 

IN  jj'ithnetis  err resaiar  HOURS 

schedule  the  indicated  event  at  TIME.V  plus  the  specified  number  of 
days,  hours,  or  minutes.  The  word  UNITS  can  be  used  instead  of  DAYS, 
and  the  word  AFTER  substituted  for  IN.  Conversions  are  made  possible 
by  assuming  that  the  units  of  TIME.V  are  days  ar.d  having  two  standard 
conversion  variables.  HOURS. V  and  MINUTES. V  are  initialled  bv  the 
SIMSCRIPT  II  system  to  2 4  and  t>0,  respectively,  for  this  purpose. 

They  can  be  changed  bv  a  prograsirer  if  need  be.  Their  mode  is  REAL. 

If  time  is  kept  lr.  units  of  days,  hours,  and  minutes,  one  o'ten 
wants  to  know,  not  what  absolute  tine  it  is,  l.e.,  the  value  of 
TIME.V,  but  what  day  of  the  week,  hour  of  the  current  simulated  lay, 
or  minute  of  the  current  simulated  hour  it  is.  Three  system  functions 
described  in  Table  5-7  prov'.U 


this  apabiiltv. 
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Table  5-2 


TIME  CONVERSION  FUNCTIONS 


Name 

Argument 

Function 

Mode 

Function  Values 

Examples 

WEEKOAY.F 

REAL  time 
expreselon 

INTEGER 

1  -  7 

dey  of  current 

week 

WEEKDAY. F(5. 32)  -  6 

HOUR . F 

REAL  time 
expression 

INTEGER 

0-23 

hour  of  current 
dey 

HOUR. F( 5. 32)  -  7 

MINUTE. F 

REAL  time 
expreselon 

INTEGER 

0-59 

minute  of  current 
hour 

MINUTE. F(5. 32)  -  40 

These  function*  are  useful  for  converting  cumulative  event  times 
to  calendar-type  times  during  program  checkout,  snd  for  nmking  decisions 
based  on  day,  hour,  and  minute  restrictions  vlthln  s  program.  Some 
examples  Illustrate  these  uses: 

(1)  A  check  to  allow  arrival  events  to  occur  only  on  weekdays 
or  Saturday: 

IF  WEEKDAY. F(TIME.V) <6,  PERFORM  START. PROCESS 

GO  AROUND 

OTHERWISE  RESCHEDULE  THIS  ARRIVAL  AT  TRUNC.F(TIME.V)+1 . 

(2)  An  event  trace  statement  put  at  the  head  of  an  event  routine: 

WRITE  WEEKDAY. F(TIME.V),  HOUR. F(TIME. Y)  AND  MINUTE. F(TIME.V) 

AS  "EVENT  ARRIVAL  OCCURREO  DURING  DAY",  I  2,  "AT  TIME", 

I  2.  I  2 ,  /. 

nr  equivalently: 

PRINT  1  LINE  WITH  WEEKDAY. F(TIHE.V) ,  HOUR. F(T!ME. V) , 

MINUTE. F(TINE.V)  AS  FOLLOWS 

EVENT  ARRIVAL  OCCURRED  DliAiNG  DAY  **  AT  TIME  **:♦* 

(3)  Used  with  a  TEXT  array  of  names  as  in  (2): 

In  the  preamble: 

DEFINE  WEEKDAY  AS  A  1 -DIMENSIONAL,  TEXT  ARRAY 


During  Initialisation: 
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RESERVE  WEEKDAY (*)  AS  7 
READ  WEEKD/Y 

Decs  card: 

MONOAY  TUESDAY  WEDNESDAY  THURSDAY  FRIDAY  SATURDAY 
SUNDAY 

AC  the  head  of  an  evenc  routine: 

WRITE  AS  "EVENT  ARRIVAL  OCCURRED  ON" 

OUTPUT  WEEKOAY ( WEEKOAY . F(T IM£ . V) ) 

WRITE  HOUR.V(TIME.V),  MINUTE. F(TIME.V)  AS 
"  AT  TIME",  I  2,  I  2,  /. 

A  third  kind  of  event  scheduling  uaea  the  vorda 

NOW  or 
NEXT 

In  aCateaenta  auch  aa 

SCHEDULE  AN  ARRIVAL  NOW 

CAUSE  A  REPLAY(SITUATION,  SEGMENT)  NEXT  and 
RESCHEDULE  THIS  REPAIR  NEXT 

Events  achaduled  NOW  within  an  event  occur  as  aocm  aa  the  event  returns 
control  to  the  timing  routine.  They  precede  events  having  the  sane 
event  time  that  may  have  been  scheduled  earlier  by  AT  or  IN  clause*. 

If  two  or  sore  events  are  scheduled  to  occur  NOW,  they  are  ranked  on 
their  PRIORITY  If  they  are  of  different  classes,  on  their  BREAK  TIES 
attributes  If  chese  are  specified,  or  on  a  flrst-ln,  first-out  basis 
if  no  BREAK  TIES  attributes  have  been  specified. 

It  is  difficult  to  describe  the  operations  of  these  different 
SCHEDULE  statements  by  examples  that  are  not  Imbedded  In  a  simulation 
model.  The  reader  should  review  this  section  to  make  sure  he  under¬ 
stands  the  concepts  of: 

creating  on  rfivnf  tc1:;,-* 

IjkH-iUL'rig  *y#n£ 

omi  igriiry  zttribut**  i<r>  jr.  no  ft  nt 

b<f  AT,  IN  NOW  , 

and  turn  to  the  example  In  Sec.  for  instances  of  how  the  SCHEDULE 

statement  is  used  in  simulation  progress*. 

A  twin  of  the  SCHEDULE  statement  la  the  CANCEL  statement,  whl-h 
removes  a  specified  event  from  Its  event  set.  It  is  cf  the  form: 
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CANCEL  THIS  event  and 
CANCEL  THIS  event  CALLED  variable 

As  usual,  if  the  first  form  is  used  it  is  interpreted  as  CANCEL  THIS 
event  CALLED  event.  The  words  THE  or  THE  ABOVE  can  be  substituted  for 
THIS  when  necessary.  The  event  notice  removed  is  not  automatically 
destroyed.  An  attempt  to  CANCEL  an  event  that  has  not  been  scheduled 
terminates  a  program  with  an  error  message. 

Triggering  Events  Externally 

Events  are  triggered  externally  by  event  data  Garde  that  are  read 
in  chronological  order  from  external  event  input  devices.  An  event 
card  contains  the  name  of  an  event,  the  time  at  which  it  is  to  occur, 
and  optional  data,  which  can  be  continued  on  subsequent  cards.  The 
cards  are  read  one  at  a  time,  their  information  recognized  and  deci¬ 
phered,  and  event  notices  created  for  the  events  they  represent.  This 
section  deals  with  two  issues:  the  operations  performed  by  SIMSCRIPT  II 
when  external  event  cards  are  read,  and  the  format  of  external  event 
data  cards. 

When  a  START  SITUATION  statement  is  recognized,  one  of  the  first 
tasks  performed  is  reading  information  about  the  first  event  named  on 
each  external  event  device.  The  system  schedules  the  first  event  on 
each  device  and  initializes  the  reading  mechanism  for  subsequent  ex¬ 
ternal  event  triggers.  When  an  external  event  data  card  is  read,  the 
event  class  is  recognized  and  the  event  time  computed  from  data  on 
the  card.  An  event  notice  named  event  is  created,  and  the  event  time 
and  number  of  the  unit  from  which  the  event  card  was  read  are  stored 
in  the  TIME. A  and  EUNIT.A  attributes  of  the  notice. 

If  the  event  is  of  a  class  that  can  only  be  triggered  externally, 
the  event  notice  contains  the  five  standard  event  attributes.  If  it 
can  also  be  triggered  internally,  the  notice  conforms  to  the  preamble 
declaration  for  the  event  class,  i.e.,  it  might  have  five  words,  or 
six,  or  eleven. 

After  TIME. A  and  EUNIT.A  are  specified,  the  event  notice  is  filed 
in  the  set  that  corresponds  to  the  event  class.  Internally  and 


I 
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externally  generated  event  notices  are  filed  together.  They  are  dis¬ 
tinguished  by  the  coding  of  EUNIT.A.  If  EUNIT.A  has  a  special  code 
value,  usually  zero,  an  event  notice  represents  an  internally  generated 
event.  Otherwise  it  represents  an  externally  triggered  event  and 
EUNIT.A  is  the  number  of  the  device  from  which  the  external  event  card 
was  read. 

Tne  format  of  an  external  event  card  is: 

1)  event  name,  e.g.,  ARRIVAL 

2)  one  or  more  blank  columns 

3)  event  time  in  any  of  three  formats 

4)  data  for  the  event  (optional) 

5)  MARK.V  character  (normally  *) 

The  event  name  and  event  times  are  read  in  free-form  by  the  SIM- 
SCRIPT  II  system.  Event  data  are  punched  in  whatever  format  a  pro¬ 
grammer  finds  convenient.  The  MARK.V  symbol  is  used  by  the  system  to 
advance  properly  from  one  set  cf  external  event  data  to  another.  As 
data  for  an  event  can  be  on  many  cards,  and  a  program  can  leave  some 
data  unread,  the  SIMSCRIPT  II  system  must  have  a  way  of  advancing  to 
the  start  of  a  new  set  of  event  data  when  it  receives  a  signal  to 
read  in  the  next  external  event  trigger. 

The  three  formats  in  which  event  time  can  be  stated  are: 

Decimal  time  units  format 

In  this  format,  time  is  specified  as  a  REAL  valued  decimal  number 
such  as  0.0,  15.56  or  20.0.  The  number  is  interpreted  as  the  absolute 
time  at  which  the  event  triggered  by  the  event  card  is  to  occur. 

Day-Hour-Minute  format 

In  this  format,  three  INTEGER  numbers  specify  the  day,  hour  of 
the  day,  and  minute  of  the  hour  at  which  the  event  triggered  by  the 
event  card  is  to  occur.  All  three  numbers  must  be  present.  Typical 
event  times  in  this  format  are:  0  0  0;  0  12  30;  2  15  37;  representing 
the  start  of  simulation,  12:30  in  the  afternoon  of  the  first  day,  and 
3:37  in  the  afternoon  of  the  third  day,  respectively.  Hours  aru  num¬ 
bered  from  0  to  24  and  minute?  from  0  to  60. 
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Calendar  time  format 


In  this  format  the  day  In  which  the  event  la  to  occur  Is  expressed 
as  a  calendar  day,  and  the  hour  and  minute  of  the  hour  as  INTEGER 
numbers.  For  example,  the  entry  1/15/69  4  30  represents  4:30  In  the 
morning  on  15  January  1969.  When  using  the  calendar  date  format  the 
year  can  be  expressed  as  1969  or  as  69;  if  the  form  XX  Is  used,  19XX 
is  assumed.  Years  after  1999  and  before  1900  must  therefore  be  ex¬ 
pressed  completely.  Some  sample  external  event  data  cards  are: 

ARRIVAL  1/15/69  05  35  * 

ARRIVAL  14  05  35  * 

ARRIVAL  476.2  * 

ARRIVAL  4/17/1960  00  00  * 

END.0F. SIMULATION  1000.0  * 

SALE  5/10/66  12  00  YOYO  15  2.3  1  1  2  * 

SALE  5/11/66  12  30  TOP  22  19.6  2  2  4  * 

PURCHASE  500.00  MAGNETIC  SOLENOID*  22.50  * 

PURCHASE  750.00  RESISTOR*  1.50  * 

PURCHASE  750.00  CATHODE  RAY  TUBE  DISPLAY  DEVICE*  600.00  * 


Before  the  calendar  format  can  be  used,  the  calendar  date  of  the 
start  of  simulation  must  be  set  to  provide  an  origin  against  which 
calendar  time  specifications  can  be  compared.  This  must  be  done  before 
the  START  SIMULATION  statement  is  executed.  The  origin  is  set  by 
executing  a  statement  of  the  form 

CALL  ORIGIN. R(INTEGER  month  expression, INTEGER  day  expression , 
INTEGER  year  expression) 


as  in  the  statements: 

CALL  ORIGIN. R(4, 22, 68) 

CALL  ORIGIN. R  6,2,69)  and 

CALL  ORIGIN. R(FIRST. MONTH , FI RST . DAY , F I RST . YEAR ) 

Since  simulation  time  is  stored  in  TIME.V  and  in  the  TIME  attribute 
of  all  event  notices  as  a  REAL  number,  conversions  must  be  made  between 
calendar  specifications  and  the  SIMSCRIPT  II  internal  representation. 
The  algorithm  that  performs  this  conversion  assumes  the  origin  date 
is  a  Monday,  and  that  simulation  starts  at  the  beginning  of  that  day 
(0000  hours).  TIME.V  is  always  set  tc  zero  at  the  start  of  simulation. 
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Four  functions  are  provided  to  convert  year,  month,  and  day  ex¬ 
pressions  Into  cumulative  simulation  times  and  vice  versa.  These 
functions  are  described  In  Table  5-3.  As  they  all  depend  on  a  simu¬ 
lation  time  origin,  ORIGIN. R  must  be  called  before  they  can  be  used. 

Table  5-3 


TIME  CONVERSION  FUNCTIONS 


Name 

Arguments 

Function 

Mode 

Function  Values 

Example 

DATE.F 

3  INTEGER 
expressions 
month, day .year 

INTEGER 

current  simula¬ 
tion  day 

DATE. F(7,15,58)  =  14 

YEAR.F 

REAL  time 
expression 

INTEGER 

current  year 

YEAR. F(476.2)  «  1969 

MONTH. F 

REAL  time 
expression 

INTEGER 

1-12 

current  month 

MONTH . F( 476 . 2 )  =  10 

DAY.F 

REAL  time 
expression 

- 

INTEGER 

— 

1-31 

day  of  currant 
month 

DAY.F(476.2)  =  21 

NOTE:  Time  origin  set  by  CALL  ORIGIN. R(7,l ,68). 


DATE.F  can  be  used  as  a  "calendar- type"  time  format  in  statements  such 
as  SCHEDULE  A'i  ARRIVAL  AT  DATE.F  (MONTH,  DAY,  YEAR)  +  SERVICE.  YEAR.F, 
MONTH. F,  and  DAY.F  are  also  useful  in  decision  and  output  statements. 

An  event  notice  for  the  next  (first)  event  on  each  eternal  event 
device  is  always  filed  in  the  event  set  that  the  data  card  specifies. 

When  an  externally  triggered  event  becomes  the  current  event,  the  number 
of  the  unit  containing  the  event  data  is  put  in  READ.V  and  control  is 
passed  to  the  event  routine.  In  this  routine,  free- form  or  formatted 
READ  statements  can  be  used  to  read  the  data.  The  current  input  pointer, 
RCOLUMN.V,  is  positioned  to  read  the  first  column  after  the  event  time. 

A  short  example  illustrates  this: 
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EVENT  ARRIVAL 

DEFINE  X  AND  Y  AS  INTEGER  VARIABLES 
READ  X  AND  Y  AS  B  20,  2  I  5 

• 

RETURN 

END 

External  event  data  card 

0000000001 11 11 11 11 1 2222222222333333333344444444445 
1 23456  7890 1 2  3456  7890 1 23456  7890 1 2  3456  7890 1 2  3456  7890 

ARRIVAL  525.30  1234512345 

2  data  fields  read  by  ARRIVAL 

position  of  RCOLUMN. V  when  timing  routine 
transfers  to  event  ARRIVAL 

A  RETURN  statement  in  an  event  routine  means  something  different 
from  a  RETURN  statement  in  a  routine  that  is  used  as  a  procedure  or 
function.  For  one  thing,  it  returns  to  the  timing  routine.  This 
corresponds  to  the  notion  that  the  timing  routine  is  the  main  or  ex¬ 
ecutive  program  of  a  simulation  and  calls  on  all  events.  Second,  if 
an  event  is  called  externally,  before  returning  to  the  event  selection 
mechanism  the  next  event  data  card  is  read  from  the  READ.V  unit  and 
scheduled  according  to  its  event  time.  If  the  first  character  en¬ 
countered  upon  reading  the  event  data  is  not  an  asterisk  signaling 
the  end  of  data  for  the  previous  event,  data  fields  are  skipped  until 
an  asterisk  is  found.  A  programmer  is  thereby  guarded  against  inad¬ 
vertently  reading  too  little  data  within  an  event  and  throwing  all 
subsequent  event  cards  out  of  sequence.  Normally,  each  event  reads 
all  the  data  provided  to  it;  in  no  cases  should  it  try  to  read  more, 
i.e.,  pass  into  the  next  set  of  event  data.  When  an  event  reads  less 
data  than  is  provided,  the  programmer  can  pass  over  it  by  moving  to 
the  next  asterisk,  or  leave  this  task  to  the  SIMSCRIPT  II  system  itself. 

The  asterisk  can  also  be  used  to  preposition  an  external  event 
file  before  the  start  of  simulation.  This  is  often  useful  when  several 
groups  of  data  are  contained  in  one  file,  or  when  simulations  are  con¬ 
tinued  from  previous  runs.  The  following  main  program  passes  over  a 
section  of  one  of  its  external  event  units  before  starting  simulation. 
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PREAMBLE 

EXTERNAL  EVENTS  ARE  ARRIVAL  AND  COMPLETION 
EXTERNAL  EVENT  UNITS  ARE  5  AND  7 
DEFINE  X  AS  AN  ALPHA  VARIABLE 


END 

MAIN 

READ  N  "  THE  NUMBER  OF  EXTERNAL  EVENTS  TO  SKIP 
FOR  1=1  TO  N,  DO  UNTIL  X«"*"f  READ  X  USING  5  LOOP 
START  SIMULATION 
END 

External  event  data  are  normally  input  through  cards  or  through 
tapes  produced  by  WRITE  statements.  Rarely  are  external  event  data 
read  or  written  with  a  BINARY  read  or  write  statement.  The  standard 
SIMSCRIPT  II  external  event  mechanism  reflects  this  state  of  affairs 
by  reading  only  data  in  printable  form;  a  programmer  with  a  definite 
need  for  binary  external  event  data  must  find  another  way  of  reading 
such  data  into  a  SIMSCRIPT  II  simulation  program.  The  following  pro¬ 
totype  program  illustrates  one  way  of  doing  this.  It  uses  a  routine 
that  reads  a  binary  tape  and  schedules  the  events  found  on  it  internally. 

PREAMBLE 

EVENT  NOTICES  INCLUDE  A1 ,  A2,...,  AN 
END 


MAIN 

USE  UNIT  6  FOR  INPUT 
CALL  EXTERNAL 
START  SIMULATION 
STOP 
END 


ROUTINE  EXTERNAL 
DEFINE  V  AS  AN  INTEGER  VARIABLE 
UNTIL  V="*\  REAO  V  AS  BINARY 
READ  EVENT. CODE  AND  TIME  AS  BINARY 
GO  TO  L (EVENT . CODE ) 

'L(l)'  CAUSE  AN  A1  AT  TIME 
RETURN 

1 L(2) 1  CAUSE  AN  A2  AT  TIME 
RETURN 


'L(N) '  CAUSE  AN  AN  AT  TIME 
RETURN 
END 
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EVENT  A1 

READ  event  data  list  AS  BINARY 


CALL  EXTERNAL 

RETURN 

END 


Within  an  Event  Subprogram 

When  an  event  occurs,  control  passes  from  the  SIMSCRIPT  II  timing 
routine  to  it.  Before  the  transfer,  TIME.V  is  set  to  the  time  for 
which  the  event  had  been  scheduled,  and  a  global  variable  with  the 
same  name  as  the  event  is  set  to  the  identification  number  of  the  event 
notice  that  triggered  the  event;  the  notice  is  removed  from  the  event 
set. 

If  the  event  is  triggered  externally,  READ.V  is  set  to  the  number 
of  the  unit  from  which  the  triggering  event  card  was  read.  This 
enables  the  event  routine  to  read  data  automatically  from  the  seme 
unit.  The  following  short  routine  demonstrates  a  typical  externally 
triggered  event. 

EVENT  AkRIVAL 
CREATE  A  PERSON 

READ  NAME (PERSON)  AND  DEST I NAT I ON (PERSON) 

LET  ARRIVAL. TIME (PERSON)  ■  TIME.V 

FILE  PERSON  IN  INTRANS IT(DESTINATION(PERSON) ) 

RETURN 

END 

The  important  things  to  remember  about  an  ex:ernally  triggered 
event  are: 

(1)  TIME.V  is  set  to  the  event  time. 

(2)  READ.V  is  set  to  the  number  of  the  unit  on  which  data  for 
the  event  are  stored. 

(3)  RCOLUffi. V  is  positioned  to  read  the  first  column  after  the 
time  data. 

(4)  When  the  RETURN  statement  is  executed,  data  on  the  current 
external  event  unit  are  read  until  an  *  Ir  found,  and  the 
data  following  the  *  used  to  schedule  the  next  external 
event  for  that  input  unit.  Control  is  then  passed  to  the 
timing  routine  to  select  the  next  event. 
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If  che  event  has  been  triggered  internally,  the  event  notice 
that  triggered  the  event  ta<tes  on  importance,  aa  the  additionally 
defined  attributes  of  the  event  notice,  if  any,  are  transferred  to  the 
arguments  of  the  event  routine.  The  event  notice  is  destroyed  unless 
a  contrar)  instruction  is  given.  This  is  done  by  appending  the  phrase 
SAVING  THE  EVENT  NOTICE  to  the  EVENT  statement,  as  in 

EVENT  ARRIVAL  GIVEN  NAME  AND  DESTINATION  SAVING  THE  EVENT  NOTICE 

It  is  common  practice  to  give  event  notices  of  internal  events 
many  attributes  and  save  them  for  use  within  an  event  routine  and 
afterward.  Also,  event  notices  can  be  rtu*  4.  The  following  short 
routines  demonstrate  these  two  points: 

(a)  Event  notice  used  as  an  entity 

EVENT  ARRIVAL(NAME, DESTINATION)  SAVING  THE  EVENT  NOTICE 

LET  ARRIVAL. TIME(ARRIVAL)»TIME. V 

FILE  ARRIVAL  IN  LI  ST. OF. ARRIVALS 

SCHEDULE  AN  ARRIVAL ("WALDO" .CODE 3)  AT  TIME.V  +  10.40 

RETURN 

END 

Event  notice  reused  to  schedule  another  event 

EVENT  ARRIVALS, D)  SAVING  THE  EVENT  NOTICE 

DEFINE  N  AS  AN  ALPHA  VARIABLE 

DEFINE  D  AS  AN  INTEGER  VARIABLE 

CREATE  A  JOB 

LET  IDENT(J0B)*N 

LET  PLACE(J0B)5D 

FILE  JOB  IN  LIST. OF. JOBS 

CAUSE  THIS  ARRIVAL( "WALDO" ,c0DE3)  AT  TIME.V  +  10.5 

RETURN 

END 

The  important  things  to  remember  about  an  internal lv  triggered 
event  are: 

(1)  TIME.V  Is  set  to  the  event  time. 

(2)  A  global  variable  with  the  name  as  the  event  is  set  to  the 
identification  number  of  the  event  notice  that  triggered 

the  event.  The  attributes  of  the  event  notice  are  available 
through  this  variable. 

(3)  The  event  notice  that  triggered  the  event  is  destreved  unless 
a  SAVING  phrase  is  used. 
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(4)  When  the  RETURN  statement  Is  executed,  control  passes  to 
the  timing  routine  to  select  the  next  event. 

If  an  event  Is  triggered  both  internally  and  externally,  and  has 
arguments,  the  arguments  can  only  be  set  if  the  event  is  scheduled 
Internally.  The  following  routine  illustrates  the  basic  fora  of  an 
event  that  can  occur  both  ways: 

EVENT  ARRIVAL(NAME, DESTINATION) 

DEFINE  NAME  AND  DESTINATION  AS  INTEGER  VARIABLES 
!F  EVENT  IS  INTERNAL.  GO  AROUND 
OTHERWISE  READ  NAME  AND  DESTINATION  AS  B  20,  2  I  10 
'AROUND1  rest  of  event  program 
RETURN 
END 

S-Q3  MODELING  STATISTICAL  PHENOMENA 

As  simulation  is  essentially  a  tool  for  drawing  statistical  infer¬ 
ences  about  the  operations  of  stochastic  systems,  it  is  essential  Kl,at 
SIftSCRIPT  II  provide  facilities  for  modeling  statistical  phenomena. 

The  heart  of  the  SIMSCRIPT  II  statistical  sampling  package  is 
the  function  RANCOM.F,  which  generates  a  stream  of  pseudorandom  num¬ 
bers  between  0  and  1.  Starting  from  an  Initial  value,  RANDOM. F  gener¬ 
ates  successive  REAL  numbers  that  can  be  used  in  decisionmaking  state¬ 
ments  or  as  data  in  other  statistical  calculations.  The  numbers  gen¬ 
erated  by  RANDOM. F  are  statistically  independent  of  one  another. 

RANDOM. F  has  one  argument,  an  ind^A  ..umber  that  picks  one  of 
several  random  number  streams.  RANDOM. F(l)  samples  from  random  number 
stream  1,  RANDOM. F(5)  from  random  number  stream  5,  etc.  All  SIMSCRIPT 
II  programs  are  initialired  with  10  random  number  streams.  The  start¬ 
ing  numbers  for  these  streams  are  contained  In  the  INTEGER  system  ar¬ 
ray  SEED.V;  traditionally,  the  first  number  in  a  pseudorandom  number 
sequence  is  called  the  seed  of  Che  sequence.  As  pseudorandom  numbers 
are  generated  new  values  are  assigned  to  SEED.V  so  that  it  contains 
the  current  number  expressed  in  INTEGER  form. 

Should  more  streams  be  needed,  a  prograaeaer  can  override  the  de¬ 
fault  condition  by  releasing  SEED.V  and  specifying  his  own  array  sire, 
os  in : 


Hie  algorithm  used  in  this  function  is  Implementation  dependent. 
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MAIN 

RELEASE  SEED. V ( *) 

READ  N  RESERVE  SFED.V(*)  AS  N 

READ  SEED. V 

START  SIMULATION 

END 

RANDOM. F  can  be  used  in  IF  and  WITH  statements  for  decisionmaking, 
as  in  these  examples: 

(a)  IF  RANDOM. F(l)  <  TRANSITION. PROBABILITY,  GO  BACK 
OTHERWISE 

(b)  FOR  EACH  CONTESTANT,  DO 

IF  RANDOM. F( CONTESTANT)  >  FINISH, 

FILE  CONTESTANT  IN  POSSIBLE. WINNER 
ELSE 

ADD  1  TO  STEPS (CONTESTANT) 

LOOP 

RANDOM. F  can  be  viewed  in  two  ways,  as  generating  uniformly  dis¬ 
tributed  pseudorandom  variables  between  0  and  1,  or  as  generating 
probabilities.  The  above  examples  illustrate  the  use  of  the  function 
in  the  probability  sense. 

When  one  considers  statistical  distributions  rather  than  prob¬ 
abilities,  ac  is  typical  in  simulation  models,  he  J.s  interested  in 
a  variety  of  them.  SIMSCRIPT  II  provides  nine  functions  for  generating 
independent,  pseudorandom  samples  from  commonly  encountered  statis¬ 
tical  distributions.  Each  of  these  functions  has  as  its  arguments  the 
parameters  that  describe  the  distribution,  and  a  pseudorandom  number 
stream  index.  Each  time  one  of  the  functions  is  invoked,  a  pseudo¬ 
random  number  is  generated  from  the  indicated  stream  and  an  appropriate 
transformation  made  to  convert  the  number  to  the  correct  sampling  dis- 
tribution.  The  functions,  the  arguments,  and  their  properties  are 
described  in  Table  5-4, 

If  the  stream  number  i  is  negative  in  any  of  these  functions, 

1 -RANDOM. F( ABS . F(i )) ,  a  quantity  called  an  antithetic  variate ,  is 
generated.  Antithetic  variates  are  used  in  simulation  experiments 
to  reduce  the  variance  of  estimates  of  simulation-generated  data. 
Discussions  of  their  use  can  be  found  in  most  good  simulation  texts. 

These  statistical  functions  are  often  used  within  simulation 
models  to  generate  activity  times.  Some  examples  illustrate  their  use: 


Name 


Argument* 


Function 

Mod* 


Function  Value 


UNI  FORM. F 

NORMAL.  F 

EXPONENTIAL. F 

Pl/ISSON.F 

ERLANG. F 

LOG. NORMAL. F 

BINOMIAL. F 

GAMMA. F 

HE  I  BULL. F 


*1 •  *2*  ^ 
REAL,  REAL,  INTEGER 


er  e2*  1 

REAL.  REAL,  INTEGER 


e,  1 

HEAL,  INTEGER 
e,1 

REAL, INTEGER 


*'  * ]  •  *2 

REAL, INTEGER, INTEGER 


el  •  *2*  ^ 

REAL .REAL,  INTEGER 


^  1  •  *•  ^2 

INTEGER.REAL .INTEGEP 


*T  V  1 

REAL, REAL.  INTEGER 


*  j  *  e2  •  ^ 

REAL, REAL,  INTEGER 


REAL 


REAL 


REAL 


INTEGER 


REAL 


REAL 


INTEGER 


REAL 


REAL 


Generates  •  uniformly 
distributed  REAL  number 
between  e  end  e  using 
stream  1 

Generates  a  normally 
distributed  REAL  number 
with  aeen*«^  and  standard 

deviation**^  u*f°g 

stream  1 

Generates  an  exponentially 
distributed  REAL  number 
wlrK  mean-e  using  stream  1 

Generates  a  Poisson  dis¬ 
tributed  INTEGER  number 
with  mean-e  using  stream  1 

Generate*  an  Erlang  dla- 
trlbuted  REAL  number  with 
aaan-e  and  k-1^  ualng 
atream  1^. 

Generate*  a  lognormally 
distributed  REAL  number 
with  mean>e^  and  standard 
devlatlon-e^  using  stream  1 

Generates  the  INTEGER  Kos¬ 
her  of  successes  in  1 
Independent  trials,  each 
having  probability  of 
success  e  using  stream  1^ 

Genaratea  a  Gamma  dlstrlb- 
!  uted  REAL  number  with 
I  mean-e^  and  k-e?  us  in* 

|  stream  1 

|  Generates  a  Welbull  dla- 
|  trlbuted  REAL  number  with 
i  shspe  parameter** ^  and 
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(a)  An  arrival  event  schedules  subsequent  arrivals,  assuming 
that  the  time  between  arrivals  is  an  exponentially  distributed  quantity 
with  mean  of  MEAN  time  units. 

EVENT  ARRIVAL 

statements  to  process  an  arrival 

SCHEDULE  AN  ARRIVAL  AT  TIME. V  +  EXPONENTIAL. F( MEAN, 1 ) 

RETURN  ' 

END 

(b)  Same  as  (a)  but  the  number  of  units  that  arrive  is  assumed 
to  have  a  Poisson  distribution  with  mean  5. 

EVENT  ARRIVAL  SAVING  THE  EVENT  NOTICE 
LET  NUMBER  ’  POISSON. F(5. 0, 1 ) 

statements  to  process  the  arrivals 

SCHEDULE  THIS  ARRIVAL  AT  TIME.V  +  EXPONENTIAL. F(MEAN, 1 ) 

RETURN  END 

(c)  Evaluation  of  n. 


« 

J 


In  a  rectangular  coordinate  system  the  equation  of  a  circle  is 
2  2  2 

i  +  j  ■  r  ;  that  is,  any  point  (i,J>  with  i  <_  r  and  j  <  r  and 
2  7  2 

i  +  J  f.  r  lies  inside  a  circle  of  radius  r.  The  area  of  the  circle 

.  2 

is  nr  . 

2 

A  square  of  side  2r  has  an  area  “  4r  .  The  ratio  of  the  area  of 

2  2 

the  circle  to  the  area  of  the  square  is  nr  /4r  »  n/4. 
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If  we  generate  N  points  (i,j)  within  the  square  in  a  random 
fashion,  then  some  of  them  will  fall  within  the  circle,  and  some  will 
not.  In  fact,  the  proportion  of  those  falling  within  the  circle  will 
be  approximately  x/4  of  all  the  points.  If  M  is  the  total  number  of 
those  that  fall  within  the  circle,  then  M/N  is  approximately  equal  to 
ir/4.  We  can  estimate  the  value  of  n  as  4M/N.  The  accuracy  of  this 
estimate  inproves  as  N  increases,  and  ic  proportional  to  *^T. 

This  program  uses  the  function  UNIFORM. F  to  generate  points  (i,j) 
that  are  randomly  distributed  within  a  square  of  side  R.  It  does  this 
by  generating  random  numbers  between  0  and  R  and  assigning  them  to 
i  and  j.  lho  point  (i,j)  is  somewhere  inside  the  square. 

2  2  2 

If  i  +  j  <  r  then  the  point  also  lies  within  the  circle  and  1 
is  added  to  K  to  tabulate  this  fact.  This  procedure  is  repeated  N 
times.  Each  time,  a  different  i  and  j  are  generated  and  used  to 
determine  if  the  point  (i,j)  lies  within  the  circle. 

At  the  end  of  N  point  generations,  the  approximation  to  tt  is 
printed. 

MAIN  DEFINE  M,K  AND  N  AS  INTEGER  VARIABLES 
NORMALLY,  MODE  IS  REAL 
READ  R  LET  C=R**2 
FOR  K= i  TO  N,  DO 

LET  I-UNIFORM. F(0.0,R,1 ) 

'  J=UNIF0RM.F(C.0,R,1; 

IF  I  _  +  J**2  <  C,  AOD  1  TO  M  REGARDLESS 
LOOP 

PRINT  1  LINE  WITH  f  -  (4*M)/N  THUS 
THE  ESTIMATED  VALUE  OF  PI  AFTER  ***  SAMPLES  IS  *.***** 

STOP 

END 

When  sampling  distributions  cannot,  be  characterized  by  one  of  the 
statistical  sampling  functions,  declarations  can  be  given  that  define 
t.'ble  look-up  sampling  variables.  A  table  look-up  sampling  vaiiable 
has  a  list  of  possible  .  .merical  values  and  theii  associated  prob¬ 
abilities  attached  to  it.  It  selects  a  sample  value  by  generating  a 
random  number  and  matching  it  against  the  possible  probability  values. 
Table  look-up  variables,  hereafter  called  RANDOM  variables,  are  declared 
in  statements  of  the  fora: 
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DEFINE  name  AS  A  mode t  RANDOM  STEP  VARIABLE  or 
DEFINE  name  AS  A  RANDOM  LINEAR  VARIABLE 

for  attributes  and  global  variables. 

The  first  form  states  that  sampling  Is  done  from  a  REAL  or  INTEGER 
valued  sampling  distribution  In  a  step-like  manner;  the  second  states 
that  sampling  is  performed  with  linear  interpolation  done  between  REAL 
sample  values.  The  following  Illustrations  describe  how  this  is  done: 

Assume  that  a  RANDOM  variable,  or  attribute,  has  the  following 
sampling  distribution  associated  with  it: 


Cumulative  Probability 

Sample  Value 

0.10 

1.0 

0.20 

2.5 

0.25 

3.0 

0.38 

9.0 

0.45 

11.8 

0.60 

20.9 

0.77 

30.0 

0.90 

33.3 

0.99 

50.0 

1.00 

66.7 

Note  that  the  cumulative  probabilities  in  the  left-har^  column 
range  from  0.0  to  1.0.  Sampling  is  performed  by  generating  a  prob¬ 
ability  value  using  RANDOM. F(l),  matching  it  with  a  value  in  column  1, 
and  selecting  an  appropriate  value  from  column  2.  Since  samples  from 
kmNDOM.F  are  always  between  0.0  and  1.0,  and  are  uniformly  distributed 
between  these  extremes,  the  samples  drawn  from  column  2  will  be  chosen 
randomly . 

If  the  sampling  variable  is  defined  by  the  statement 
DEFINE  SAMPLE  AS  A  REAL,  RANDOM  STEP  VARIABLE 
sampling  is  done  as  follows  in  the  statement,  LET  X=SAMPLE: 

(1)  A  random  number  is  drawn  from  RANDOM.F(I), 
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(2)  This  random  number  Is  compaied  with  successive  cumulative 
probability  values  until  a  value  Is  found  that  equals  or 
exceeds  It. 

(3)  The  column  2  value  associated  with  this  cumulative  probability 
value  Is  returned  as  the  value  of  the  sample. 


Examples: 

(a) 

(b) 

(c) 

(d) 


If  the 
If  the 
If  the 
If  the 


random  number 
random  number 
random  number 
random  number 


drawn  la  0.20, 
drawn  Is  0.45, 
drawn  Is  0.65, 
drawn  Is  0.95, 


SAMPLE-2.5 

SAMPLE-11.8 

SAMPLE-30.0 

SAMPLE-50.0 


RANDOM  variables  defined  as  STEP  can  be  either  INTEGER  or  REAL 
valued. 

If  the  sampling  variable  Is  defined  by  the  statement: 


DEFINE  SAMPLE  AS  A  RANDOM  LINEAR  VARIABLE 


sampling  Is  done  as  follows: 


(1)  A  random  number  la  drawn  from  RANDOM. F(l). 

(2)  This  random  number  Is  compared  with  successive  cumulative 
probability  values  until  a  value  Is  found  that  equals  or 
exceeds  it. 

(3)  Interpolation  is  done  between  the  column  2  value  associated 
with  the  stopping  cumulative  probability  value  and  the  column 
2  value  preceding  it.  If  1  represents  the  index  of  the  stop¬ 
ping  probability,  C(i)  the  probability,  and  V(i)  the  sample 
value,  the  interpolation  formula  is 


sample 


V(i-l) 


,  RANDOM. F  -  C(i-l) 
C(i)  -  C(i-l) 


[V(D  -  v(i-i)] 


That  is,  the  percentage  by  which  the  random  sample  exceeds 
C(i-l)  times  the  difference  between  V(i)  and  V(i-l)  is  added 
to  V(i-l). 


Examples: 

(a) 

(b) 

(c) 

(d) 


If  the  random  number  drawn  is  0.20, 
If  the  random  number  drawn  is  0.45, 
If  the  random  number  arawn  is  0.65, 
If  the  random  number  drawn  is  0.95, 


SAMPLE-2.5 

SAMPLE-11.8 

SAMPLE-23.6 

SAMPLE-42.6 


RANDOM  values  defined  as  LINEAR  can  only  be  REAL  valued.  Inter¬ 
polations  are  done  in  REAL  arithmetic  and  are  accurate  to  as  many 
decimal  places  as  the  computer  carries;  rounding  is  done  in  the  above 
examples  for  illustration  only. 
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Whenever  a  RANDOM  variable  appears  in  a  "get"  sense,  i.e.,  on 
the  right-hand  side  of  an  equals  sign,  a  routine  that  performs  the 
above  sampling  procedure  is  executed.  SIMSCRIPT  II  generates  such 
routines  using  random  number  stream  1.  If  the  programmer  wants  to 
use  some  other  stream  he  does  the  following: 

(1)  Signals  the  compiler  not  to  generate  a  sampling  routine  by 

omitting  the  wcrds  STEP  or  LINEAR  from  a  DEFINE  statement,  e.g., 

DEFINE  SAMPLE  AS  A  REAL,  RANDOM  VARIABLE 

(2)  Writes  a  routine  of  the  following  format: 

ROUTINE  name (index) 

RETURN  WITH  function (F .name (index ) ,  stream  number) 

END 

function  is  one  of  three  system  sampling  routines: 


Function 

Sampling  Desired 

RSTEP.F 

REAL,  RANDOM  STEP 

I STEP. F 

INTEGER,  RANDOM  STEP 

LIN.F 

RANDOM  LINEAR 

F.name  is  the  first  pointer  of  the  set  that  contains  the 
sampling  data  (see  below). 

index  is  an  optional  subscript  or  identification  number. 
Example : 

Define  SAMPLE  as  a  RANDOM  attribute  of  an  entity  JOB.  The 
values  of  SAMPLE  are  REAL;  sampling  is  done  using  LINEAR 
interpolation  and  random  number  stream  6. 

TEMPORARY  ENTITIES . 

EVERY  JOB  HAS  A  SAMPLE 
DEFINE  SAMPLE  AS  A  REAL,  RANDOM  VARIABLE 


ROUTINE  SAMPLE (JOB) 

DEFINE  JOB  AS  AN  INTEGER  VARIABLE 
RETURN  WITH  LIN. F(F.SAMPLE(JOB) ,6) 

END 

RANDOM  variables  can  only  be  read  and  sampled;  assignments  cannot 
be  made  tc  them. 

Sampling  is  always  done  automatically;  from  a  programmer's  point 
of  view  a  RANDOM  variable  acts  like  a  right-handed  function. 

Because  of  the  special  storage  assigned  to  RANDOM  variable  sample 
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values  and  probabilities ,  special  input  treatment  is  necessary.  When 
a  variable  defined  as  RANDOM  appears  in  a  free-form  READ  statement, 
the  following  occurs: 

(1)  Pairs  of  free-form  data  values  are  read  until  a  MARK.V 
character  appears. 

(2)  The  first  of  each  pair  is  assumed  to  be  a  probability.  The 
second  is  assumed  to  be  a  sample  value. 

(3)  A  system-defined,  three-word  entity,  RANDOM. E,  is  created 
for  each  pair.  The  probability  value  is  assigned  to  its 
first  attribute,  PROB.A;  the  sample  value  is  assigned  to 
its  second  attribute,  IVALUE.A  if  the  variable  is  INTEGER, 
or  RVALUE. A  if  the  variable  is  REAL. 

(4)  The  entities  are  filed  in  a  set  having  the  same  name  as  the 
RANDOM  variable.  The  third  attribute  in  each  RANDOM. E 
record  is  a  pointer  named  S. variable . 

(5)  F .variable  occupies  the  space  declared  for  the  RANDOM  vari¬ 
able  or  attribute. 

Input  probabilities  can  be  cumulative  or  individual.  If  cumulative, 
the  last  probability  must  be  1.0;  if  individual,  they  must  sum  to  1.0. 
All  RANDOM  variables  have  their  probabilities  stored  cumulatively. 

If  individual  probability  values  are  read,  the  SIMSCRIPT  II  system 

*J* 

accumulates  them. 

The  following  examples  illustrate  how  RANDOM  variables  are  defined 
and  used: 

(A)  Definition 

DEFINE  WORDS  AS  AN  INTEGER,  RANDOM  STEP  VARIABLE 

Input  statement: 

READ  WORDS 

Input  data: 

0.1  10  0.2  25  0.35  40  0.55  100  0.8  150  1.0  2bo  * 

If  any  probability  is  less  than  0  or  greater  than  1,  a  program 
terminates  with  an  error  message.  If  the  last  probability  is  1,  the 
probabilities  are  assumed  to  be  cumulative.  If  the  last  probability 
is  not  1,  the  probabilities  are  summed  so  that  they  are  stored  cumu¬ 
latively.  The  last  probability  it  set  to  1. 
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Storage  of  WORDS  sample  values: 


Use  of  WORDS: 

(a)  LET  SENTENCc=WORDS 

(b)  IF  WORDS  GREATER  THAN  LIMIT,  GO  OUT  ELSE.... 

In  this  example  WORDS  is  a  global  variable.  Sampling  probabil¬ 
ities  are  expressed  cumulatively  in  six  pairs  of  sampling  values; 
the  pairs  are  stored  in  six  entities  in  a  set  named  WORDS. 

(B)  Definition: 

DEFINE  WORDS  AS  AN  INTEGER,  RANDOM  STEP  VARIABLE 

Input  statement: 

READ  WORDS 

Input  data: 

0.1  10  0.1  25  0.15  40  0.2  100  0.25  150  0.2  200  * 

Storage  of  WORDS  sample  values: 
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Same  as  in  (A) ;  individual  probability  values  are  accumulated  as 

the  data  are  read. 

RANDOM  variables  cannot  appear  in  any  other  form  of  READ  state¬ 
ment,  since  input  of  a  RANDOM  variable  "value"  obviously  means  some¬ 
thing  special. 

If  WORDS  is  an  array  or  an  attribute,  one  can  say  READ  WORDS(I) 
but  not  READ  WORDS,  if  the  latter  statement  is  interpreted  as  a  free¬ 
form  array  read  statement.  Only  a  single  RANDOM  variable  data  list 
can  be  read  at  one  time.  If  WORDS  is  an  attribute,  READ  WORDS  is 
interpreted  as  READ  WORDS(entiti/) ,  using  implied  subscripting. 

It  is  possible  for  a  program  to  construct  RANDOM  variable  sampling 
sets  as  well  as  read  them.  To  construct  a  set  of  sampling  probabilities 
and  values  for  a  RANDOM  variable  called  SAMPLE,  one  writes: 

FOR  I»1  TO  N,  or  something  similar 

CREATE  A  RANDOM. E 

LET  PROB.A -expression  or  perhaps  READ  PROB.A 

LET  RVALUE. ^expression  or  perhaps  READ  RVALUE. A 

FILE  RANDOM. E  IN  SAMPLE 
LOOP 

5-04  MODEL  DEBUGGING  AND  ANALYSIS 

Debugging 

The  most  difficult  task  in  programming,  next  tu  deciding  on  the 
architecture  of  a  program,  is  debugging.  This  can  be  especially  dif¬ 
ficult  in  a  high-level  programming  language  like  SIMSCRIPT  II,  where 
many  statements  are  often  generated  for  each  one  a  programmer  writes. 
Additional  debugging  difficulties  are  caused  by  dynamic  storage  allo¬ 
cation  mechanisms  that,  by  their  flexibility,  allow  a  programmer  to 
work  himself  into  unanticipated  situations. 

Much  of  SIMSCRIPT  II  that  has  already  been  described  was  designed 
with  debugging  in  mind.  The  LIST  statement,  monitored  variables,  and 
the  membership  attribute  all  have  this  orientation. 

Two  new  definitional  ;  tatements,  BEFORE  and  AFTER,  make  it  pos¬ 
sible  for  a  programmer  to  monitor  six  of  the  more  complex  SIMSCRIPT  II 
statements  in  an  easy  way.  Table  5-5  names  the  arguments  automatically 
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G1VEN  to  routines  called  through  BEFORE  and  AFTER  declarations. 


Table  5-5 

BEFORE  AND  AFTER  ARGUMENTS 


BEFORE 

AFTER 

CREATE 

t 

Entity  identifier 

DESTROY 

Entity  identifier 

t 

CAUSE 

Entity  identifier,  time 

Entity  identifier,  time 

CANCEL 

Entity  identifier 

Entity  identifier 

FILE++ 

Entity  identifier,  set 

Entity  identifier,  set 

subscripts 

subscripts 

REM0VE+++ 

Entity  identifier,  set 

Entity  identifier,  set 

subscripts 

subscripts 

*Not  allowed. 

^In  FILE  BEFORE  and  FILE  AFTER  statements,  the  second 
entity  identification  number  is  not  GIVEN. 

By  definition,  the  entity  identification  GIVEN  for  a 
REMOVE  FIRST  or  REMOVE  LAST  is  zero. 


To  use  BEFORE  or  AFTER  tracing,  a  programmer  writes  a  routine 
having  the  same  number  of  input  arguments  as  are  transmitted  for  the 
operation  being  monitored.  Suppose  it  is  necessary  to  check  the  sub¬ 
scripts  for  FILE  and  REMOVE  operations  in  a  certain  doubly  subscripted 
set.  The  statements  to  this  might  look  like: 

Preamble : 

BEFORE  FILING  AND  REMOVING  FROM  QUEUE,  CALL  CHECK 

Routine: 
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ROUTINE  CHECK  GIVEN  ENTITY,  SUBl  AND  SUB2 
DEFINE  ENTITY,  SUBl  AND  SUB2  AS  INTEGER  VARIABLES 
IF  0  <  SUBl  <  M  AND  0  <  SUB2  <  N,  RETURN 
OTHERWISE 

PRINT  2LINES  WITH  SUBl  AND  SUB2  THUS 
INCORRECT  DIMENSIONS  IN  SET  QUEUE 
SUBl  *  ****  SUB2  =  **** 

CALL  DUMP 

STOP 

END 

As  shown,  the  routine  must  be  written  with  the  number  of  sub¬ 
scripts  of  the  set  being  traced  in  mind. 

The  program  in  Sec.  5-OS  illustrates  various  wavs  in  which  BEFORE 
and  AFTER  statements  can  be  used. 

Analysis 

The  principal  outputs  of  simulation  experiments  are  statistical 
measurements.  Such  quantities  as  the  average  length  of  a  waiting 
line  and  the  percentage  ‘.die  time  of  a  machine  are  typical.  Normally, 
statements  must  be  scattered  throughout  a  program  to  collect  this 
information,  and  special  summarization  statements  written  to  print  it 
out  at  the  end.  Aside  from  being  tedious  and  time-consuming,  writing 
data-cc  1  lection  and  analysis  statements  is  a  task  to  be  avoided, 
because  it  clutters  up  the  operating  logic  of  a  program  with  state¬ 
ments  whose  only  function  is  the  collection  of  output  inforraation. 

Two  new  statements,  ACCUMULATE  and  TALLY,  completely  eliminate 
this  kind  of  programming.  They  are  preamble  statements  that  instruct 
the  compiler  to  generate  automatic  data  collection  and  analysis  state¬ 
ments  at  appropriate  places  in  a  program.  All  operating  programs  are 
left  clear  of  data  collection  and  data  reduction  statements. 

A  statement  of  the  form: 

TALLY  compute  l-'st  OF  none 

performs  the  same  computations  as  the  COMPUTE  statement  described 
in  Sec.  5-07,  but  in  a  global  rather  than  local  manner. 

Except  for  MAX IMJM(e )  and  MINIMUM(e). 


Each  time 
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name  changes  value,  appropriate  accumulations  are  made  to  collect  the 
statistics  requested  in  the  compute  list.  Scone  la  the  name  of  a 
global  variable  or  system  attribute,  subscripted  or  unsubscrlpted, 
or  an  attribute  of  a  temporary  or  permanent  entity.  If  name  Is  a 
global  variable,  system  attribute,  or  attribute  of  a  permanent  entity, 
as  many  variables  are  reserved  to  store  the  statistical  counters  as 
there  are  elements  of  name.  If  name  is  an  attribute  of  a  temporary 
entity,  each  entity  record  is  given  statistical  accumulation  attrib¬ 
utes.  Same  cannot  be  a  function  attribute,  a  variable  monitored  on 
the  left,  or  a  RANUOM  variable. 

The  preamble  generates  attributes  and  routines  for  each  TALLY 
statement.  A  left-hand  routine  that  does  data  accumulation  is  always 
generated  for  each  tallied  variable.  The  number  of  generated  attrib¬ 
utes  and  other  routines  varies  with  the  statistical  quantities  speci¬ 
fied.  Table  5-6  states  the  cases  in  which  additional  routines  and 
attributes  are  generated. 


Table  5-6 
TALLY  ACTIONS 


Statistical  Quantity 

TALLY  Action 

NUMBER 

Attribute  generated  if  MEAN,  VARIANCE,  STD. DEV, 
MEAN. SQUARE,  MINIMUM  or  MAXIMUM  requested  and 
NIW5ER  not  requested 

SUM 

Attribute  generated  if  h€AN,  VARIANCE  or 

STD. DEV  requested  and  SUM  not  requested 

MEAN 

FUNCTION  with  name  in  TALLY  list  generated 

SUM. OF. SQUARES 

Attribute  generated  if  MEAN. SQUARE,  VARIANCE 
or  STD. DEV  requested  and  SUM. OF. SQUARES  not 
requested 

MEAN. SQUARE 

Function  with  name  ir.  TALLY  list  generated 

VARIANCE 

Function  with  name  in  TALLY  list  generated 

STD. DEV 

Function  with  name  in  TALLY  list  generated 

MAXIMUM 

t’se#  name  in  TALLY  list 

MINIHJM 

I'ses  name  in  TALLY  list 
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Some  examples  Illustrate  the  use  of  the  TALLY  statement  and  the 
attributes  end  functions  generated  by  it: 

(a)  Use  of  TALLY  with  an  unsubscrlpted  global  variable. 

Preamble: 

PREAMBLE 

DEFINE  X  AS  A  REAL  VARIABLE 

TALLY  M  AS  THE  MEAN  AND  V  AS  THE  VARIANCE  OF  X 

END 

Preaable  generatea: 

(1)  A  left-handed  monitoring  routine  named  X,  which  la  called 
whenever  an  aaalgnaent  is  made  to  X  anywhere  in  the  program. 
The  function  counts  the  number  of  times  X  changes  value  and 
accumulates  the  sum  and  sum  of  squares  of  X. 

(2)  Global  variables  A.1,  A. 2,  A  Z  to  accumulate  the  NUMBER, 

SUM,  and  SUM. OF. SQUARES  of  X  for  the  computations  of  MEAN 
and  VARIANCE. 

(3)  Functions  M  and  V  that  compute  MEAN  and  VARIANCE  from  A.l, 

A. 2,  and  A. 3  whenever  they  are  referenced. 

Programamr  uses  TALLY  variables  in  statements  such  as: 

PRINT  1  LINE  WITH  M  AND  V  AS  FOLLOWS 
MEAN  -  **.*♦*  VARIANCE  *  ***.*♦• 

IF  V/M  >  SMALL. ENOUGH,  GO  AHEAD 
OTHERWISE  LIST  M  AND  V  STOP 

(b)  Use  of  TALLY  with  an  attribute  of  a  permanent  entity. 
Preamble: 

PREAMBLE 

PERMANENT  ENTITIES.... 

EVERY  MAN  HAS  SOME  CASH. IN. POCKET  AND  OWNS  A  FAMILY 


TALLY  AVERAGE. CASH  AS  THE  MEAN  AND  MAX. CASH  AS  THE 
MAXIMUM  OF  CASH. IN. POCKET 


END 


Preamble  generates: 
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(1)  A  left-handed  monitoring  routine  named  CASH. IN. POCKET  with 
one  argument,  the  index  number  of  the  referenced  entity. 

(2)  Attribute#  A.1  and  A. 2  to  accumulate  the  SUM  and  NUUJER  for 
each  entity.  A.1  and  A. 2  are  both  arrays  with  N.MAN  elements. 

(3)  A  function  AVERAGE. CASH  to  compute  MEAN  from  A.1  and  A. 2. 

Programmer  uses  TALLY  variables  in  statements  such  as: 

FOR  EACH  MAN,  UST  AVERAGE.  CASH  (MAN)  AND  MAX.CASH(MAN) 

FOR  EACH  MAN,  COMPUTE  M  AS  THE  MEAN  OF  AVERAGE .CASH (MAN) 

(c)  Use  of  TALLY  with  an  attribute  of  a  temporary  entity. 

Preamble : 

PRF AMBLE 

TEMPORARY  ENTITIES 

EVERY  JOB  HAS  A  NUMBER. OF. OPERATIONS 

e 

TALLY  TOTAL  AS  THE  SUM  OF  NUMBER. OF. OPERATIONS 

e 

e 

ENC 

In  progiam: 

Preamble  generates: 

(1)  A  left-handed  monitoring  routine  named  NUMBER. OF. OPERATIONS 
with  one  argument,  the  identification  number  of  the  refer¬ 
enced  entity. 

(2)  An  attribute  name  i  TOTAL  for  the  temporary  entity  J0r«. 

Progra»er  uses  ^ALL't  variables  in  statements  such  aa : 

FOR  EACH  JOB  IN  QUEUE (MACHINE ) ,  00 

IF  TOTAL (JOB  1  -  MAX. ALLOWED,  GO  LOOP 
OTHERWISE...  REMOVE  THE  JOB  FROM  QUEUE (MACHINE) 

PERFORM  NEXT. JOB  GIVEN  JOB 

'LOOP'LOOP 

Fro*  these  exas^Ies  one  sees  that  certain  counters,  def ined  as 


variables  or  as  attributes,  are  required  for  the  st*ti-*ical  computa¬ 
tions.  These  counters  are  listed  in  Tablo  S-7. 
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Table  5-7 

COUNTERS  REQUIRED  TOR  TALLY  STATISTICS 


Statistic 

Counters 

NUMBER 

N,  the  number  of  samples 

SUM 

l  x^,  the  sum  of  the  sample  values 

SUM. OF. SQUARES 

r  2 

l  x^,  the  sum  of  squares  of  the  sample 
values 

MEAN 

l  v  N 

MEAN. SQUARE 

l  v  N 

VARIANCE 

I  ^  N 

STD. DEV 

l  l  N 

MAXIMUM 

M,  the  value  of  the  largest  sample  and  N 

MINIMUM 

m,  the  value  of  the  smallest  sample 
and  N 

Statistical  computations  of  a  different  sort  are  made  when  the 
word  ACCUMULATE  replaces  TALLY.  These  calculations  introduce  time 
into  the  average,  variance,  and  standard  deviation  calculations, 
weighting  the  collected  observations  by  the  length  of  time  they  have 
had  their  values.  Table  5-8  compares  the  TALLY  and  ACCUMULATE  compu¬ 
tations.  To  do  this  concisely,  some  additional  notation  must  be 
defined: 

Symbol  Meaning 

T^  The  simulated  time  an  ACCUMULATED 

variable  was  set  to  its  current  value 

Tn  The  simulated  time  at  which 

U  ACCUMULATION  starts 

ACCUMULATE  and  TALLY  statements  cannot  be  declared  foi  the  same 
variable.  A  programmer  must  decide  whether  a  variable  is  time- 
dapendent  or  not,  normally  a  simple  task,  and  specify  one  or  the 
other.  An  example  of  the  use  of  the  ACCUMULATE  statement  is  given 
in  the  following  example: 
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Table  5-8 


TALLY  AND  ACCUMULATE  COMPUTATIONS 


TALLY 

ACCUMULATE 

NUMBER 

N 

N 

SUM 

X 

l  X*(TIME. V  -  Tl) 

SUM. OF. SQUARES 

f^<] 

X 

r. 

l  x2*(time.v  -  tl) 

MEAN 

SUM/NUMBER 

SUM/(TIME. V  -  Tq) 

MEAN. SQUARE 

SUM. OF. SQUARES/ 
NUMBER 

SUM. OF. SQUARES/ (TIME. V  -  TQ) 

VARIANCE 

MEAN. SQUARE  - 
MEAN 

MEAN. SQUARE  -  MEAN 

STD. DEV 

SQRT. F(VARIANCE) 

SQRT. F(VARIANCE) 

MAXIMUM 

Largest  X 

Largest  X 

MINIMUM 

Smallest  X 

Smallest  X 

PREAMBLE 

PERMANENT  ENTITIES.... 

EVERY  MACHINE  HAS  A  STATUS,  A  PROCESSING. SPEED 
AND  OWNS  A  QUEUE 
TEMPORARY  ENTITIES.... 

EVERY  JOB  HAS  A  VALUE  AND  BELONGS  TO  A  QUEUE 
ACCUMULATE  AVG. QUEUE  AS  THE  MEAN  AND  MAX. QUEUE  AS 
THE  MAXIMUM  OF  N. QUEUE 

ACCUMULATE  MACHINE. STATE  AS  THE  MEAN  OF  STATUS 
END 


Let  Fig.  5-3  represent  the  changes  in  value  of  N.QUEUE(l)  over 
part  of  a  simulation  run.  As  there  are  N. MACHINE  queues,  this  is  but 
one  of  several  similar  plots. 


Fig.  5-3  --  A  sample  time-series 
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If,  at  simulated  time  11.2  (TIME . V=1 1 .2) ,  AVG.QUEUE(IJ  appears 
in  a  statement  such  as  LIST  AVG.QUEUE(1 )  ,  it  is  computed  from  Table 
5-9  data  as  31.0/11.2-2.77.  That  is,  the  average  number  of  jobs  in 
QUEUE(l)  from  TIME.V=0  to  TIME. V=T T . 2  is  2.98.  If  at  some  time  be¬ 
tween  changes  in  N . QUEUE ( 1 ) ,  say  at  TIME.V-10,  a  value  for  AVG.QUEUE(l) 
is  requested,  it  is  computed  as  [16,5  +  5  (10  -  8.3)]/ 10  -  2.5  by  the 
function  AVG. QUEUE. 

More  complete  information  on  the  values  attained  by  tallied  global 
variables,  system  attributes,  and  attributes  of  permanent  entitles 
can  be  obtained  by  requesting  a  frequency  count  of  the  number  of 
times  a  variable  takes  on  specified  ranges  of  values.  Statements  of 
the  form: 

TALLY  name]  (r]  TO  r£  BY  r3)  AS  THE  HISTOGRAM  OF  name , 

define  an  array  name^  with  (r^  -  r^)/r^  +  1  elements,  for  each  element 
of  name The  interval  between  x^  and  r^  is  divided  into  classes 
units  wide;  if  a  sample  value  falls  between  r^  and  +  r^„  a  1  is 
added  to  name.^  (1),  if  it  falls  between  r^  +  r^  and  r^  +  2r^,  a  1  is 
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added  to  name 2(2),  etc.  To  get  the  average  value  of  a  variable  over 
the  life  of  a  program  and  the  distribution  of  values  it  has  at  dif¬ 
ferent  times,  one  writes: 

PREAMBLE 

DEFINE  VAL  AS  A  REAL  VARIABLE 

TALLY  AVERAGE  AS  THE  MEAN  AND  FREQ(0  TO  100  BY  5)  AS  THE  HISTOGRAM  OF  VAL 
END 

Whenever  VAL  changes,  observations  are  summed  to  provide  data  for  com¬ 
puting  AVERAGE,  and  counts  are  made  in  21  interval  counters  that  indi¬ 
cate  the  number  of  times  VAL  is  between  0  and  5  ,  5  and  10  ,  10  and 
15  ,  etc.  If  a  value  is  less  than  r^  it  ia  counted  in  the  first  cell; 
if  equal  to  or  greater  than  r ^  it  is  counted  in  the  last  cell. 

Compilation  of  histograms  for  global  variables,  system  attributes, 
and  attributes  of  permanent  entities  generate  histogram  arrays  of  one 
more  dimension  than  the  variables  themselves.  This  dimension  is  for 
the  histogram  array,  which  is  reserved  by  the  system  automatically 
in  the  following  places: 


Sampled  variable  type 

Unsubscripted  global  variable  or 
system  attribute 

Subscripted  global  variable  or 
system  attribute 

Attribute  of  permanent  entity 


Place  of  reservation 
MAIN  routine 

When  it  is  RESERVED 

When  it  is  CREATED 


Histograms  cannot  be  compiled  for  attributes  of  temporary  entities. 

Histograms  are  defined  differently  for  variables  that  appear  in 
ACCUMULATE  statements.  For  them,  what  is  of  interest  is  not  how  many 
times  values  within  a  given  range  appear,  but  the  total  time  spent  in 
the  different  ranges  during  a  simulation  run.  This  allows  the  calcu¬ 
lation  of  state  probabilities. 

Consider  the  following  example: 


-332- 


PREAMBlE 

PERMANENT  ENTITIES.... 

EVERY  MACHINE  HAS  A  PROCESSING. SPEED  AND  A  STATUS  AND 
OWNS  A  QUEUE 
TEMPORARY  ENTITIES.... 

EVERY  JOB  HAS  A  VALUE  AND  BELONGS  TO  A  QUEUE 
ACCUMULATE  MEANQ  AS  THE  MEAN  OF  N. QUEUE 
ACCUMULATE  STATE. PR0BS(0  TO  2  BY  1 )  AS  THE  HISTOGRAM  OF 
STATUS 

"POSSIBLE  VALUES  OF  STATUS  ARE" 

"STATUSO  MACHINE  IDLE" 

1 ' STATUS* 1  MACHINE  IDLE  BUT  COMMITTED" 

"STATUS=2  MACHINE  ENGAGED" 

END 


As  simulation  proceeds,  the  value  of  STATUS  changes  for  the  dif¬ 
ferent  machines.  Each  time  STATUS  changes,  the  length  of  time  the 
machine  was  in  that  particular  state  is  added  to  the  proper  element 
of  the  array  STATE. PROBS.  Since  MACHINE  is  a  permanent  entity,  and 
STATUS  therefore  a  one-dimensional  array,  STATE. PROBS  is  a  two-dimen¬ 
sional  array.  The  first  dimension  is  N. MACHINE,  the  second  is 
3  *  ((2-0) /I  +  1). 

The  percentage  time,  and  therefore  the  state  probabilities,  spent 
in  each  state  by  each  machine  can  be  obtained  by: 

FOR  EACH  MACHINE, 

PRINT  1  LINE  WITH  STATE. PROBS(MACHINE,  1)/TIME.V,  STATE. PROBS 
(MACHINE,  2 ) /TIME . V ,  STATE. PROBS (MACHINE,  3)/TIME.V  AS  FOLLOWS 
PROBABILITIES  OF  BEING  IN  STATES  0,1  AND  2  ARE  *.**,  *.**,  *.** 


And  adaptive  decisions  can  be  made  within  a  model  by  statements  like: 

IF  STATE. PR0BS(1,1)/TIME.V  <  STATE . PROBS ( 2 , 1 )/TIME. V,  CALL  PERFORM(l) 
GO  TO  L 

ELSE  CALL  PERF0RM(2)  GO  TO  L 

Each  TALLY  or  ACCUMULATE  statement  generates  a  routine  for  ini¬ 
tializing  the  counters  used  in  calculating  its  statistical  quantities, 
some  of  which  are  not  initially  zero.  These  routines  are  named 
R .name,  where  nerve  is  the  variable  or  attribute  being  tallied  or 
accumulated.  These  routines  can  be  invoked  at  any  time  by  statements 
of  the  form: 


RESET  THE  TOTALS  OF  variable  list 


Thus,  the  declarations  of  the  preamble  on  p.  332  make  the  following 
statements  possible: 

RESET  TOTALS  OF  N. QUEUE (MACHINE) 

RESET  TOTALS  OF  STATUS(5) 

RESET  TOTALS  OF  N.QUEUE(5)  AND  STATUS(5) 

FOR  EACH  MACHINE,  RESET  TOTALS  OF  N. QUEUE 

The  RESET  statement  makes  possible  the  preparation  of  repeats 
on  a  cumulative  or  periodic  basis. 

In  cases  where  both  periodic  and  cumulative  statistics  are  required, 
the  TALLY,  ACCUMULATE,  and  RESET  statements  can  be  qualified  so  that 
multiple  statistical  counters  are  used.  The  statement  forms  to  do 
this  are: 

TALLY  variable  AS  THE  name- 1  statistic  OF  name 2 

TALLY  variable  {r\  TO  n  BY  n)  AS  THE  name ^  HISTOGRAM  OF  name ^ 

ACCUMULATE  variable  AS  THE  name -j  statistic  OF 

ACCUMULATE  variable (n  TO  n  BY  n)  AS  THE  name ^  HISTOGRAM  OF  name 2 

RESET  name-\  TOTAL  OF  name ^ 

To  generate  daily,  weekly,  and  cumulative  statistics  for  N. QUEUE 
in  the  above  preamble  one  would  write; 

ACCUMULATE  DMEANQ  AS  THE  DAILY  MEAN,  WMEANQ  AS  THE  WEEKLY 
MEAN,  MEANQ  AS  THE  GRAND  MEAN  OF  N.QUcUE 

Periodic  events  would  then  print  the  relevant  statistics  daily  and 
weekly,  and  reset  the  appropriate  counters  by  the  statements: 

RESET  THE  DAILY  TOTALS  OF  N. QUEUE 

RESET  THE  WEEKLV  TOTALS  OF  N. QUEUE  or 

RESET  THE  DAILY  AND  WEEKLY  TOTALS  OF  N. QUEUE 

The  example  of  Sec.  5-05  illustrates  these  statements  in  the  con¬ 
text  of  a  real  simulation  model. 

Since  certain  ACCUMULATE  counters  are  nonrero,  RESET  must  be 
called  before  dynamically  allocated  variables  that  are  initialized 
to  zero  are  used.  A  reconmended  procedure  is  to  RESET  immediately 
after  every  CREATE  or  RESERVE  for  a  variable  that  is  accumulated. 

Going  back  to  the  above  preamble,  the  following  pair  of  statements 
should  appear  in  that  part  of  the  simulation  program  that  allocates 
storage  to  MACHINE: 
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CREATE  EACH  MACHINE 

FOR  EACH  MACHINE,  RESET  TOTALS  OF  N. QUEUE (MACHINE) 

If  a  RESET  statement  does  not  use  a  name  to  qualify  TOTALS,  all 
counters  associated  with  the  relevant  variable  are  initialized. 

Places  in  a  program  where  variables  cannot  be  monitored  for 
TALLY  or  ACCUMULATE  are  where  array  pointers  are  passed  as  array 
arguments.  Consider  the  following  preamble,  routine,  and  calling 
statement: 

PREAMBLE 

DEFINE  VAR  AS  A  REAL,  1 -DIMENSIONAL  ARRAY 

TALLY  M  AS  THE  MEAN  OF  VAR 

END 


MAIN 

READ  N  RESERVE  VAR(*}  AS  N 
FOR  1*1  TO  N,  RESET  TOTALS  OF  VAR(I) 
READ  VAR 

CALL  MANIPULATE  GIVING  VAR 

LIST  VAR.M 

STOP 

END 


ROUTINE  TO  MANIPULATE  GIVEN  ARRAY 
DEFINE  ARRAY  AS  A  REAL,  1 -DIMENSIONAL  ARRAY 
DEFINE  I  AS  AN  INTEGER  VARIABLE 
FOR  1-1  TO  DIM.F(ARRAY(*)),  WITH  ARRAY ( I ) -,«0 , 
LET  ARRAY(I)  -  ARRAY(I)**2 
RETURN 
END 


The  values  of  VAR  are  changed  within  MANIPULATE  bjt  undnr  the 
name  ARRAY.  Tallying  cannot  take  place. 

A  final  note  on  analysis  has  to  do  with  minimizing  storage  require¬ 
ments  for  computations  of  statistical  quantities.  The  reasons  for 
wanting  to  do  so  are  brought  out  *n  the  following  example: 

PREAMBLE 

PERMANENT  ENTITIES.... 

EVERY  MACHINE  OWNS  A  QUEUE 
TEMPORARY  ENTITIES.... 

EVERY  JOB  BELONGS  TO  SOME  QUEUE.  AND  HAS  A  VALUE, 

A  DUE. DATE  ANO  A  LATENESS 
EVENT  NOTICES  INCLUDE  ARRIVAL  AND  STOP. SIMULATION 

EVERY  END.J08  HAS  A  JOB  AND  A  NEXT. JOB 
TALLY  AVG.LATE  AS  THE  MEAN  OF  LATENESS 


EVENT  END . JOB v JOB .NEXT. JOB ) SAV I NG  THE  EVENT  NOTICE 

DEFINE  JOB  AND  NEXT. JOB  AS  INTEGER  VARIABLES 

LET  LATENESS-DUE . DATE ( JOB ) -TIME . V 

IF  NEXT. JOB  EQUALS  0,  DESTROY  THIS  JOB 

DESTROY  THIS  END. JOB 
RETURN 

ELSE  RESCHEDULE  THIS  END. JOB(NEXT. JOB, UNIFORM. F(MIN, MAX, 1)) 

AT  TIME.V  +  EXPONENTIAL. F(REAL.F(NEXT. JOB), 1) 

RETURN  END 

In  this  example,  each  temporary  entity  JOB  has  eight  attributes: 
P. QUEUE,  S. QUEUE.  M. QUEUE,  VALUE,  DUE. DATE,  LATENESS,  A.l,  and  A. 2. 
The  first  six  names  are  defined  in  the  preamble.  The  last  two  are 
generated  by  the  SIMSCRIPT  II  system  as  statistical  counters  for  the 
attribute  LATENESS. 

If  the  logic  of  the  program  does  not  require  that  the  value  of 
LATENESS  be  accessible,  it  is  possible  to  perform  TALLY  computations 
on  it  without  its  being  stored.  One  wishes  to  do  this  when  he  wants 
the  convenience  ■»*  TALLY  and  ACCUMULATE  specifications,  but  does  not 
want  to  waste  computer  words  in  storing  unnecessary  Information. 

Declaration  of  a  variable  as  DUMMY  allows  it  to  be  used  in  TALLY 
or  ACCUMULATE  statements  without  having  Its  value  stored.  Statements 
such  as 

(a)  EVERY  JOB  BELONGS  TO  SOME  QUEUE, AND  HAS  A  VALUE, 

A  DUE. DATE  ANO  A  LATENESS  DUWIY 

(b)  DEFINE  GLOBAL  AS  A  REAL,  DUMMY  VARIABLE 

specify  that  variables  (or  attributes)  are  to  be  treated  as  REAL  or 
INTEGER  numbers  in  all  computations,  but  era  not  to  be  given  storage 
locations.  If  the  statement  (s)  above  were  included  in  the  sample 
program  on  the  preceding  page,  only  seven  words  would  be  needed  for 
each  JOB.  Savings  from  DUMMY  specifications  can  be  significant  in 
programs  that  have  large  numbers  of  statistical  variables.  These 
savings  can  be  important,  e.g.,  they  slight  allow  8000  rathor  than 
'000  JOB  records  to  be  processed  simultaneously. 

All  preamble-defined  variables  and  attributes  can  be  declared 
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as  DUMMY.  A  DUMMY  variable  oust  appear  in  a  TALLY  or  ACCUMULATE  state¬ 
ment.  DUMMY  attributes  are  declared  in  EVERY  or  THE  SYSTEM  statements. 
DUMMY  global  variables  are  declared  in  DEFINE  statements. 

5-05  A  SIMULATION  EXAMPLE 

The  example  described  in  this  section  is  designed  o  illustrate 
as  much  of  S1MSCRIPT  II  as  is  possible  in  a  natural  problem  setting. 
While  it  contains  most  of  the  language's  features,  and  all  of  the 
ones  important  to  simulation  studies,  it  does  not  contain  them  all. 

Those  features  not  expressed  are  described  in  detail  in  their  respec¬ 
tive  sections. 

Despite  the  fact  that  the  features  illustrated  are  not  exhaustive, 
the  example  may  still  seem  forced  and  artificial.  This  is  not  sur¬ 
prising,  for  it  is  a  rare  program  that  requires  the  full  facilities 
of  a  rich  and  complex  programming  language.  The  particular  example 
used  is  an  extension  of  the  Job  shop  model  of  Chapter  3  of  the  SIMSCRIPT 
report. 

The  plan  of  this  section  is  as  follows:  the  first  subsection 
describes  the  system  that  is  modeled  in  general  terms,  presents  the 
problems  the  model  has  been  designed  to  study,  and  places  the  rest  of 
the  section  in  perspective.  The  next  subsection  contains  a  listing 
of  the  complete  simulation  program  followed  by  a  set  of  data  cards. 

The  last  subsection  works  through  the  program  section  by  section  — 
end  occasionally,  where  it  is  warranted,  statement  by  statement  — 
explaining  the  syntax  and  semantics  of  the  statements,  permitting 
variations  where  it  seems  interesting,  and  background  mechanisms 
where  it  seems  worthwhile. 

The  System 

The  system  undei  study  is  shown  abstractly  in  Fig.  !>-•*.  It  is 
a  shop  containing  S'  [roductlon  centers,  each  containing  identical 
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Fig.  5-4  —  System  under  Investigation 


machines,  and  a  finished  goods  Inventory  storage  area.  The  shop  pro¬ 
duces  P  standard  products  for  local  sale  and  distribution,  and  varia¬ 
tions  of  the  standard  products  for  local  and  export  distributors.  Each 
product  ordered  goes  through  the  shop,  undergoing  processing  at  produc¬ 
tion  centers  according  to  standard  routings,  production  times,  and  pvo- 
duct  expediting  procedures. 

Each  production  center  has  an  in-process  inventory  area  where  pro¬ 
ducts  in  process  are  stored  if  they  cannot  be  processed  when  they  arrive 
at  the  center.  The  production  rules  of  the  shop,  isi  order  to  minimize 
the  value  of  ln-process  inventory,  always  remove  partially  completed 
products  from  production  center  queues  according  to  their  value. 

Table  5-10  shows  the  entity-attribute-set  model  of  the  shop  and 
its  product  line. 

Aside  from  the  attributes  required  to  accumulate  system  performance 
data,  fable  5-10  shows  the  entitles,  attributes,  and  sets  needed  to  de¬ 
scribe  the  static  structure  of  the  shop.  Permanent  entities  are  used 
for  production  centers  and  product  descriptions,  which  are  fixed  in  num¬ 
ber.  Temporary  entities  are  used  for  jobs  and  for  job  processing  speci¬ 
fications,  which  are  variable  in  number.  Before  going  on,  the  reader 
should  make  sure  he  understands  this  characterization  of  the  system. 
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Table  5-10 


ENTITIES,  ATTRIBUTES,  AND 

SETS  OF  THE  SHOP  MODEL 

Set  or 

Entity 

Attribute 

Comment 

PRODUCTION. CENTER 

NUMBER. IDLE 

The  number  of  idle  machines  in  a 
production  center 

QUEUE 

Each  production  center  has  a 
collection  of  in-process  products, 
called  jobs 

PRODUCT 

SALES. FREQUENCY 

Characterizes  the  frequency  with 
which  orders  for  standard  products 
arrive  at  the  shop 

NAME 

Identifies  the  product 

STRUCTURE 

Each  product  has  a  list  of  standard 
operations  that  have  to  be  per¬ 
formed 

JOB 

Each  order  ia  called  a  job 

VALUE 

The  dollar  value  of  each  job 

DUE. DATE 

The  time  a  job  is  promised  to  a 
customer 

ARRIVAL. TIME 

The  time  at  which  a  particular 
job  is  ordered 

EXPEDITE. FACTOR 

The  degree  to  which  a  job’s  pro¬ 
cessing  can  be  speeded  up  at  a 
production  center 

ROUTING 

A  list  of  production  centers 
through  which  a  job  has  to  be 
processed 

FINISHED. GOODS. 

Jobs  can  be  placed  in  finished 

INVENTORY 

goods  inventory  awaiting  shipment 

THE  SYSTEM 

FINISHED. GOODS. 

Jobs  are  placed  in  finished  goods 

INVENTORY 

inventory  if  finished  before  their 
due  date 

OPERATION 

MACHINE. DESTINED 

The  production  center  at  which  a 
job  has  to  be  processed 

CODE 

A  number  representing  a  particular 
processing  operation 

PROCESS. TIME 

The  length  of  time  it  takes  to 
perform  a  processing  task 

STRUCTURE 

The  standard  production  list  on 
which  different  production  centers 
appear 

ROUTING 

The  processing  operations  required 
for  a  particular  job 
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The  shop  operates  roughly  as  follows.  When  orders  for  standard 
products  cone  Into  the  shop,  a  standard  production  sequence  is  copied 
from  an  order  book  onto  a  Job's  production  routing  tag.  The  job  is 
sent  to  the  first  production  center,  where  it  is  wortced  on  if  &  machine 
is  free.  If  no  machines  are  available  to  process  the  job,  it  is  put 
in  a  work-in-process  queue  until  a  machine  becomes  available.  When 
a  job  finishes  processing  on  a  machine,  its  routing  tag  is  examined, 
and  the  job  is  sent  on  either  to  another  processing  center  or  to 
finished  goods  inventory. 

The  preamble  declarations  for  the  temporary  and  permanent  enti¬ 
ties  specify  the  items  of  information  that  are  needed  to  model  the 
shop.  These  are:  relevant  processing  center  and  job  characteristics, 
and  waiting  line  dis  .ipli:  ;s. 

The  dynamic  structure  of  the  shop  is  captured  in  the  two  events, 
SALE  and  END. OF. PROCESS.  Two  other  events,  WEEKLY. REPORT  and 
END. OF. SIMULATION,  serve  only  to  print  system  performance  data  and 
stop  the  simulation.  The  event  SALE  is  set  up  to  happen  both  intern¬ 
ally  and  externally.  When  triggered  internally,  SALE  represents 
either  a  <.oeal  or  export  sale  of  a  standard  product.  Two  external  event 
data  tapes  are  provided  to  supply  special  order  information.  In  SALE, 
jobs  are  assigned  to  machines  and  the  system  state  is  changed  to 
reflect  such  assignments.  Whenever  a  job  is  assigned  to  a  machine 
an  event  END. OF. PROCESS  is  scheduled  to  terminate  the  processing, 
make  the  machine  available  for  another  job,  and  pass  the  Job  on  fcr 
further  processing  or  shipment, 

BREAK  TIES  and  PRIORITY  statements  are  used  in  the  preamble  to 
ensure  that  system  events  occur  in  the  correct  order  when  simulation 
time  ties  occur. 

At.  the  end  of  the  preamble,  BEFORE,  TALLY,  ACCUMULATE,  and 
DEFINE  statements  finish  off  the  program  specification.  The  BEFORE 
statements,  and  the  routines  associated  with  them,  are  U3cd  in  one 
instance  to  catch  programming  errors.  The  DEFINE  statements  make 
declarations  that  are  necessary,  but  were  not  made  before.  The  TALLY 
and  ACCUMULATE  statements  collect  information  on  the  performance  of 
the  simulated  syseem. 
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The  simulation  is  being  run  to  determine  how  many  machines  are 
needed  at  each  production  center  to  provide  '’adequate"  customer  ser¬ 
vice.  To  study  the  effects  of  varying  the  number  of  machines  in  each 
center,  a  TALLY  statement  looks  at  the  length  of  time  jobs  spend  in 
the  shop,  and  an  ACCUMULATE  statement  looks  at  the  waiting  lines  that 
build  up  at  the  various  production  centers.  Some  number  of  machines 
will  be  chosen  that  balances  the  cost  of  degraded  customer  service 
with  the  costs  of  additional  machines. 

The  program  listing  that  follows  has  been  written  and  annotated 
to  make  it  ao  readable  as  possible.  Those  statements  that  are  not 
clear  from  the  program  itself  are  clarified  in  the  section  following 
the  listing. 
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SAMPLE  S1NSCRIPT  II  SIMULATION  PROGRAM 
A  JOB  SHOP  SIMULATION 


PREAMBLE 

NORMALLY  MODE  IS  INTEGER  ANO  DIMENSION  IS  0 
PERMANENT  ENTITIES..*.. 

EVERY  PRODUCT  HAS  A  SALES. FREQUENCY  ANO  A  NAME  ANO  OWNS  A  STRUCTURE 
DEFINE  SALES. FREQUENCY  AS  A  REAL  RANOOM  LINEAR  VARIABLE 
DEFINE  NAME  AS  AN  ALPHA  VARIABLE 
EVERY  PRODUCT .PROOUCT  HAS  A  PRODUCT. SALES  1 */2 I 

EVERY  PRODUCT  I ON. CENTER  HAS  A  (MAX. IN. QUEUE 1 1/21 1 MAX. QUEUE  1 2/2 1 1  IN  ARRAY  I, 
A  IMNUMI 1/21,  MNUM 1 2/2 1 1  IN  ARRAY  2.  A  WSUN.  t  MSUN.  A  NUMBER. IDLE 
ANO  OWNS  A  QUEUE 

DEFINE  NUMBER. I  OLE  AS  A  VARIABLE  MONITORED  ON  THE  LEFT 
TEMPORARY  ENTITIES . 

EVERT  JOB  HAS  A  VALUE  IN  MORO  2.  A  DUE. DATE.  AN  ARRI VAL. T IME, 

AN  EXPEOITE. FACTOR  FUNCTION.  MAY  BELONG  TO  A  C  EUE,  OMNS  A  ROUTING 
ANO  HAY  BELONG  TO  THE  MALTING. SET 

DEFINE  EXPEDITE. FAC  TOR  AS  A  REAL  FUNCTION 
OEFINE  VALUE,  OUE.OATE  ANO  arrival. time  as  real  variables 
DEFINE  ROUTING  AS  A  FIFO  SET  MITHOUT  P  ANO  N  ATTRIBUTES 
OEFINE  QUEUE  AS  A  SET  RANREO  BY  HIGH  VALUE 
EVERY  OPERATION  HAS  A  I  COOEII/21  ANO  MACHINE. DESTINEDI 2/2 1  I  IN  MORO  I 
ANO  A  PROCESS. TIRE  ANO  BELONGS  TO  A  STRUCTURE  ANO  A  ROUTING 

OEFINE  STRUCTURE  AS  A  SET  RANKED  BV  LON  COOE  MITHOUT  M  ATTRIBUTE 
ANO  MITHOUT  R  ROUTINES 
OEFINE  PROCESS. TIME  AS  A  REAL  VARIABLE 

EVENT  NOTICES  INCLUOE  MEEKLY. REPORT 

EVERV  SALE  HAS  A  PROOUCT. TYPE ,  A  PRICE  ANO  A  PRIORITY 
OEFINE  PRICE  AS  A  REAL  VARIABLE 
EVERV  ENb.OF. PROCESS  HAS  AN  ITEM  ANO  A  PROOUCER 

BREAK  SALE  TIES  BY  HIGH  PRICE  THEN  BY  LON  PRIORITY 
EXTERNAL  EVENTS  ARE  CNO.0F. SIMULATION  ANO  SALE 
EXTERNAL  EVENT  UNITS  ARE  LOCAL. SALES  ANO  EXPORT.SALES 

PRIORI  TV  OROER  IS  ENO.OF. PROCESS.  SALE,  MEEKLY. RE FOR I  ANO  E NO. OF. SIMULATION 

BEFORE  FILING  AMO  REMOVING  FROM  QUEUE  CALL  QUEUE. CHECK 
BEFORE  DESTROYING  JOB.  CALL  STAY. TINE 

OEFINE  STAY  AS  A  REAL  OUMNV  VARIABLE 

TALLY  AVG.STAV  AS  THE  MEE«LV  MEAN,  VAR. STAY  AS  THE  MEEKLY  VARIANCE,  SUN.STRV  AS 
THE  MEEKLY  SUM,  SUM. SQUARES. SI  AY  AS  THE  MEEKLY  SUM. OF. SQUARES,  ANO 
NUM.tTAV  AS  THE  MEEKLY  NUMBER  OF  STAY 

ACCUMULATE  MSUM  AS  THE  MEEKLY  SUM,  MNUM  AS  THE  MEEKLY  NUMBER,  A VG. QUEUE  AS  THE 
MEEKLY  FKEAN,  MAX. QUEUE  AS  THE  MEEKLY  MAXIMUM  ANO  FREQIO  TO  2S  BY  1 1 
AS  THE  MEEKLY  HISTOGRAM  OF  N.QUEUE 

ACCUMULATE  MSUM  AS  THE  MONTHLY  SUM,  MNUM  AS  THE  MONTHLY  NUMBER,  AVG.IN.QUEUE  AS 
THE  MONTHLY  MEAN,  NAX.IN.QUEUE  AS  THE  MONTHLY  MAXIMUM  OF  N.QUEUE 

THE  SYSTEM  OMNS  A  F INISMED.GOOOS. INVENTORY 

OEFINE  FINISMEO.GOOOS. INVENTORY  AS  A  SET  RANKEO  BV  OUE-  > 'I 

OEFINE  LOCH  TO  MEAN  OEFINE  l,J,K,L,N  ANO  N  AS  SAVED  INTEGER  VARIABLES 

OEFINE  MEEK  TO  MEAN  •MOURS.VVT  HOURS 

OEFINE  PRIOR  I  TV.  FREQUENCY  AS  A  I-OIMCNSIONAL  ARRAY 

OEFINE  TITLE  AS  A  TEST  VARIABLE 

OEFINE  MEEK. COUNTER  ANO  TAPE. FLAG  AS  INTEGER  VARIABLES 
OEFINE  AVERAGE  AS  A  REAL  FUNCTION  MITM  I  ARGUMENT 
ENO 
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MIN 

'  INJT  I  ALI/f '  NfANOAN  INITIALIZATION 
tit  If TNtEN.V*' TRACf '  STAAT  SIMULATION 


••  NIMH  NCXT  IRNERIMfNT  •• 

NON  f ACM  JOS  IN  NINISMfO.SOOOS.INVfNTOAV.  00 

RfMOVf  TMf  JOS  MOM  NINI SMID. 60001. INVfNTOAV 
OfSTROV  TMf  JOS 

LOON 

NOS  f ACM  NAOOOCTION.CtNtfA, 

NON  f ACM  JOS  IN  SUCUC.  00 

NOA  f  ACM  ONf  NATION  IN  ROUT  INC.  DO 

RfMOVf  TMf  ONfNATION  IRON  ROUTINC 
OfSTROV  TMf  ONfNATION 

LOON 

RfMOVf  TMf  JOS  ROOM  OUtUE 
OfSTROV  TMf  JOS 

LOC* 

NON  f ACM  NAOOUCT.  00 

NON  f ACM  ONfNATION  IN  STAMTUAE.  00 

RfMOVf  TMf  ONfNATION  NROM  TMf  STRUCTURE 
OfSTROV  TMf  ONfNATION 

LOON 

ALSO  NON  (ACM  RANDOM. E  IM  SALE S.NRfOUf MCV,  00 

RfMOVf  TMf  RANOOM.f  NROM  SALf S.NRfOUf MCV 
OfSTROV  TMf  RANOON.I 

LOON 

NfLfASt  NANf  •  E. STRUCTURE. 1. STRUCTURE ,  M.  STRUCTURE •  N.SALES.N  AfQUtNCV, 
NROOUCT.SALES,  MUMSfA. IOLI.  E  .QUEUE .  L.QUtUf.  R.OUEUf.  MAX. IN.OUfUE. 
MAI.OUEUf.  NSUM.  MSUM,  MMUM,  NMUM 
Rf LEASE  NNIORITV.NRfOUfNCV 
ERASE  TITLf 

RfSfT  TOTALS  ON  STAY 

NOR  E ACM  NAOOUCTIOM. CENTER,  RfSfT  TOTALS  ON  N.OUfUf 

LfT  VEIR.COUMTER-O 
MAI  Tf  AS  ■•»«■,/ 

LfT  TANf.NLAC-0 

••  AfUSf  CRTtRMAL  fVfNTS  IN  Mf XT  f XNf R|Mf NT 
RfMlNO  LOCAL. SALES  AND  fINORT. SALES 

SO  INITIAL  Ilf 
STON  (NO 


ROUT  INI  NOR  INITIAL  1 1 AT  I ON 
LOCAL 

Of  N  IRf  NN  TO  Mf  AM  NR  ION  I  Tv.NREOUf  NC  V 
Of N |N(  SN  TO  Nf AN  SALfS.NRf RMf MCV 
OfNINf  CMICR  AS  AN  ALNMA  VARIANT! 

LfT  tON.V«l 
INMUT  TITLf 

IN  fON.VMf.  NR  1ST  I  LINf  AS  NOLIOMS 
MO  0*  ORTA  MIT 
STON 


tiSf 
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AERO  N. PRODUCTION. CENTER 

CHEAT!  ITIII  MOOUCT IONIC  ENTER 

FOR  EACH  PAOOUCT ION.CENTEA,  READ  NUNOEK.IOLE 

RE  AO  N.MOOUCT 

CREATE  EVERT  PRODUCT 

RESERVE  PRIORITY. TREOUCNCVIP«AI  AS  N.PROOUCT  RV  • 

TOR  EACH  PAOOUCT,  DO 
READ  NAME 

RE AO  SAIES.TREOUENCV 

RESERVE  PRIOAITV.TAEOUONCVIPAOOUCT.PI  AS  RROOUCT 
TOR  l-l  TO  PROOUCT,  READ  PRIORI  TY.FA'OUENCV  I  PROOUCT,  1 1 

UNTIL  NODE  IS  ALPHA.  JO  THIS . 

CREATE  AN  OPERATION 

TILE  THE  OPERATION  IN  STRUCTURE 

RE  AO  COOE  ,  MACHINE. Of  STINEO  ANO  PROCESS.  TINE 

LOOT 

SKIT  1  TIELO 

CAUSE  A  SALE  IN  ST  HOURS 

LET  RROOUCT. TYPE-PRODUCT 

LET  PRICE-PROOUCTRRANOOH.TItl 

LET  PRIORITV-PTIPNOOUCT.  TRUNC.TIPRI"  ‘II 


READ  LOCAL. SALES.  EXPORT. SALES  ANO  SAVE. TAPE 

READ  MONTH.  OAV  ANO  YEAR  CALL  OR  1 61 N.AI MONTH, OAT  ANO  YEAR I 

READ  CHECK  IT  CHECK  EQUALS  -OK*.  CALL  REPORT  RETURN 
OTMCRNISE  PRINT  1  LINE  AS  TOLLONS 
EITHER  TOO  MUCH  OATA  OR  ORTA  NAS  MEN  RE  AO  INCORRECTLY 
STOP  ENO 


EVENT  SALE (PRODUCT. PR ICE. PRIORI TV I  SAVINS  THE  EVENT  NOTICE 

OETINE  ST  TO  MEAN  SALES.TREOUENCV 

LOCAL 

IT  SALE  IS  EXTERNAL.  RE  AO  PROOUCT.  PRICE  ANO  PRIORITY  AS  •  M.l  9.  OIIO.SI.  I  9 
RE6AR0LESS  ADD  I  TC  PRODUCT. SALE SIPROOUCT.  TRUNC.TIPRICEI-I) I 
CREATE  A  JOR 

LET  VALUE-PRICE 

LET  OUE.OATS-TIRE.V  •  PRICE  •  PRIORITY 
LET  ARRIVAL. TINE-TINE. V 
IT  SALE  IS  INTERNAL. 

TOR  EACH  PIECE  OP  STRUCTURE.  PILE  PIECE  IN  ROUTINE  60  TO  JOt 
••  PROCESS  SPECIAL  oroers 

OTHERWISE  UNTIL  MOOR  IS  ALPHA,  00  THE  TOLLOUINE... 

read  n 

TOR  EACH  PIECE  IN  STRUCTURE  N|TH  COOEIPIECi)  -  N. 

TIRO  THE  TIAST  CASE,  IT  NONE  00  TO  LOOP 
PILE  PIECE  IN  ROUTINE 
•LOOP*  LOOP 
•JOB’  NOW  ATTENU.TO.AOO 

IT  SALE  IS  EXTERNAL.  DESTROY  THE  SALE  RETURN 
OTHERWISE . 

SCHEDULE  THE  SALTIPROOUCT.  PROOUCTARANOON.PI II,  PRIORI TY.TREOUE NCY I PRODUCT, 
TRUNC.TIPR ICS  1*11  IN  ST  «T*S 

RETURN  CKO 


ROUTINE  TO  ATfECO.TO, AON 

LET  PRODUCTION. CENTER. MACHINS.M IT INSOIf'. ROUT  IMEIAOO)  I 
IT  NUMBER. IOLE  IS  POSITIVE, 

SUE  TRACT  I  PROM  NUMBER.  IKE  PERTORN  ALLOCATION 
RETliXIR 

OTHEAWITE  pile  aoi  in  queue  RETURN 
IMS 


RBfYIRE  TOR  ALlRCAflflN 

ItMOYE  TM  TITST  OPERATION  PROM  THIS  ROUf INS 
tCNOOULE  AN  SNO.OV. PROCESS  RIVEN  AOO  ANO  PRURUCT ION. CENT EA  IR 
PROCSSS.T IRRPEIPMI Tt .T ACTOR  MOMS 
RETURN  EM 
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ROOTINI  CAPCDITI.PACTOP 

I P  MW*.*  IS  SM*ir-  THAN  DUC. OATS  RITURN  WITH  0.9  (IS* 
RCTRM  WITH  miuriM  il‘-iNCM>/PROCtSS.TINC*ll 
MS 


UPON  CRB* OP. PROCSSS  SI*M  JO*  A  NO  PROOUCTlONoCCNTIR 
IP  ROUT  I M  IS  (NPTY,  IP  OUt.OATI  <-  TIM.** 

PISTROY  THIS  JOt  60  TO  PC 

CLSC  Pill  TNIS  JOB  IN  PINISMI0.6000S.INVINT0RV  60  TO  PC 
OTHCRNISC  CALL  ATTINO.TO.J06 
•PC* 

IP  OUIUK  IS  IWPT* * 

A 00  I  TO  NUMOIR. I Oil  RETURN 
OISI  RfNOVf  TWO  PIRST  J00  PROW  OUCUI 
PIRPORN  ALLOCATION  RC TURN 
INC 


■VINT  POR  NtiRlV.RIPORT  SAVINS  TNI  tVCNT  NOTICI 
RISCNIOOLI  TNIS  HCIRlV.RIPORT  IN  1  VtP£ 

*00  1  TO  NCfR.COUNTfR 
NON  RIPORT 

RISOT  NCORLV  TOTALS  OP  STAY 

POR  f ACN  PNOOUCTION.CCNTKR.  RtfclT  NCCKLT  TOTALS  OP  N.OUCUI 
IP  NOO.PI NIIr .COUNTER «  4I»0«  POR  (ACM  PRODUCT I ON. CINTCR*  RCSIT  MONTHLY  TOTALS 
OP  N.OUOU*  (LSI 
RCTVRN  (NO 


IVRNT  POR  (NO. 01. SIMULATION 

POR  l-t  TO  CVINTS.V*  POR  (ACM  NOTICI  IN  IV.SIIU  DO 
RINQVt  TMC  NOTICI  PROM  IV.S4II 
OISTROY  TMC  NOTICI 

LOOP 

NON  RIPORT 

LIST  PRODUCT. SAMS 

SC TURN  (NO 


ROUT  INC  POR  OUIM-CHCCR  6IVCN  CNTITY  ANO  I 
LOCAL 

IP  1  LI  «  LI  N.MOOUCTION.CINTIR,  RITURN 
OTHCRPISI...  PRINT  1  LINi  NITM  I  AS  POLLONS 
STOPPW  TR*  INC  TO  RIPISINC(  OUCUI  I  *1 
TRACI  STOP  INO 


ROUT  INC  POR  STAV.MMC  6IYIN  JOO 
LIT  STAVnTIM.V  -  4  MVAL.TINflJQII 
RITURN  (NO 


ROUT INC  TO  TRACI 
LOCAL 

IP  PINISNCOaCOOOS. INYINTQRY  IS  INPTY*.  60  AROUNO 

■LSI  POR  (ACM  POR  SN  P INI SMCO.ROOOt. INVCNTOR V  UNTIL  OUI.OATI  >  TINC.Y,  00 
RIMOVi  TMC  J06  PROM  PINI SMCO.COOOS. I NVfNTORY  OCSTROV  TMC  J06 
LOOP 
• AROUNO* 

60  TO  CNO.OP.PROCISS*  SAL*.  RICHLY. RIPORT  ANO  INO.OP. SIMULATION  PC*  IVINT.V 
•INO.OP.PROCISS*  HRITP  ITtm  PROOUCIR.  TIN!.*  AS  -ITIN-,  I  9,  -STOPPIO-. 

•PPKISIINC  ON  NACMINC*.  I  5,  •  IT  TIM  — .01  10.91 «  / 

RITURN 

*SALI*  NR  III  TINC.Y*  PRODUCT.  TYPC.  PC  Id  AND  PRIORITY  AS  ■SAll  OP  TYPS-,  I  >.  • 
•  PRODUCT  AT  TIM—,  01 16.11 .  ■  POR  »•*  DM  21*  •  PRIORITY*-,  I  ». 
/  RITURN 
•NCSRLV.RIPORT* 

•lkR.OP.tHNA.MIRN* 

RITURN 

•NR 
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LEFT  ROUT  INC  NUMCR.  lOLIINI 
OEFINI  j  It  I  SAVED,  2-OINCNS IONAL  RRRRY 
OCR  INC  ■  RS  R  SAVED,  1-OINCNSIONAl  RRRRY 
CNTCR  WITH  N 

LIT  TAPE. FLAG-1 
RELEASE  J  AND  R 

RCSCRVC  RIO  RS  REPRODUCTION* CCNTCR 
RESERVE  RS  100  IV  N. PRODUCTION. CENTER 

1  TO  RIM) 


IP  TAPE.FLAG-O, 


REGARDLESS  ROO 
LET  JlRlNI «RI-N 
IP  RINIpIOO,  WRITE  N  RS  I  S  USINS  SRVC.TRPC 

FOR  !■!  TO  100,  WRITE  JII.Nl  RS  I  S  USINS  SRVC.TRPC 
WRITE  RS  /  USINS  SRVE.TRPE 
RECRROICSS  WOVE  FROM  N 
RETURN  END 


ROUTINE  TO  REPORT 
LOCAL 

IP  TINCwV>0. 

START  NEW  PACE  • •  ANO* '  OUTPUT  TITLE 
SRIP  2  OUTPUT  LINES 
PRINT  1  LINES  AS  FOLLOWS 

PRODUCT  ORTA 

NAME  SALES  FREQUENCY  PROOUCTION  SEQUENCE 

PROR.  VALUE  COOC  CNTR  TINE 
FOR  EACH  PRODUCT,  DO 
LET  I «F. SALES. FREQUENCY 
LET  »F. STRUCTURE 

PRINT  1  LINE  WITH  NONE.  PROS. All),  RVALUE. At  1 1,  COOCIJ), 

NACHI NC.OCST I NEOI J I  ANO  PROCESS. T I  NCI J I  THUS 
•  •••  M  M 

IF  I  — Oi  LET  I *S. SALES. FREQUENCY III  ELSE 
IF  J— 0.  LET  J-S. STRUCTURE! Jl  ELSE 
IF  1-0  AND  J-0,  60  TO  'LOOP*  ELSE 

IF  1—0  AM  J-0,  PRINT  1  LINE  WITH  PROD.AIII  AND  RVAIUC.AIII  THUS 
l,«*  Mi 

CISC  IF  I«fi  ANO  J— 0.  PRINT  l  LINE  WITH  COOCIJI,  MACHINE.OCSTINCOIJi, 

ANO  POOCCSS.TINCIJI  THUS 
H  M  M* 

ELSE  IF  I— 0— J,  PRINT  1  LINE  WITH  PROO.RIII,  RVALUC.RIII.  COOCIJI, 

NACH|NC,0CSTINC0IJ1  ANO  PROCESS. TINCIJI  THUS 

•  «.«•  J*  ti  i.M 

•LOOP*  LOOP 

SRIP  2  OUTPUT  LINES 

PRINT  2  LINES  AS  FOLLOWS 

PROOUCTION  CENTER  ORTA 
CENTER  NUMCR  OF  NACHINCS 

FOR  EACH  PROOUCTION. CENTER,  PRINT  1  LINE  WITH  PRODUCT ION.CENTCR  ANO 

NUNRCA. IDLE  THUS 

••  M 

SRIP  2  OUTPUT  LINES 
PRINT  2  LINES  AS  FOLLOWS 

INITIAL  EVENTS 
EVENT  TYPE  TINE 

FOR  l-l  TO  E VENTS. V,  FOR  EACH  J  IN  CV.SIII, 

PRINT  1  LINE  WITH  I  ANO  TINE. All!  THUS 

• 

RE6AR0LESS . 

START  NEW  PACE 

PRINT  |  LINE  AS  FOLLOWS 

PRINT  )  LINES  LIRE  THIS . 

WEERLY  REPORT 


PRINT  2  LINES  WITH  AYS. STAY  ANO  VAR.STAV  AS  FOLLOWS 
JOO  STAY  STATISTICS  ARC l  AVERAGE  STAY- 

VARIANCE  ■  i.M 

SRIP  1  OUTPUT  LINES 

•ESIN  REPORT 

•KIN  HEROINS 

PRINT  2  LINES  AS  FOLLOWS 

PRODUCTION  CENTER  QUEUEING  REPORT 
CNTR  AYS.  QUEUE  NA1.  QUEUE 
INC  ' • HE AO  INC 

FOR  EACH  PRODUCT I ON. CENTER,  PRINT  I  LINE  WITH  PRODUCT ION.CSNTER, 

AVS. QUEUE  ANO  NA I. QUEUE  TtRjS 
••  i.M  • 

INC  ••  REPORT 
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mint  I  l INC  KITH  AVfAACCIAM.QUCUCIAI)  UKI  THU 

OVERALL  AYCAA6C  QUCUC  LIMTM  Of  ALL  OUCUCS  It  •••* 

SNIP  1  OUTPUT  tINCt 

POA  f ACM  PAOOUCTION.CENTC*.  00 

•COIN  RCPORT  MINTINC  POR  1*1  TO  »»  IN  CROUPS  Of  9 
II6IN  MCAOIM 
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Comments  op  the  Simulation  Program 

The  program  is  srrsogcd  functionally  and  is  discussed  as  it 
appears.  The  order  of  the  program  is:  preamble,  main  routine,  ini¬ 
tialisation,  events  and  routinea  of  the  eiaulation  model,  routines 
for  monitoring,  debugging,  and  analysis. 


PREAMBLE 


The  preamble  is  divided  into  seven  sections:  permanent  entitles, 
temporary  entitles,  event  notices,  event  control,  debugging,  analysis, 
and  miscellaneous  declarations.  Most  simulation  programs  are  organised 
this  vay. 

One  compound  and  two  simple  permanent  entities  are  declared.  The 
special  features  of  each  are: 

PRO DUC1  has  a  RANDOM  attribute  and  an  ALPHA  attribute,  each  of 
which  requires  definition  in  a  DEFINE  statement. 

PRODUCT. SALES,  the  single  attribute  of  the  compound  entity 
PRODUCT .PRODUCT  is  ictrapccked  to  couaarve  storage  space. 

PR  IDUCTIUH. CENTER  has  two  pairs  of  attributes  that  are  packed  in 
the  same  array,  and  one  attribute  that  is  monitored.  The  packed 
attributes  use  field-packing,  equivalence,  and  array  specifica¬ 
tion.  The  monitored  attribute  requires  an  additional  DEFINE 
statement . 

PRODUCT. SALES  could  Just  as  easily  have  beer,  defined  as  a  global 
array  or  as  a  two-dimensional  system  attribute.  Ac  a  global  array, 
however,  it  could  not  heve  been  pecked.  Aa  e  system  attribute,  it 
would  not  be  eligible  for  implied  subscripting. 

Wo  temporary  entitles  are  declared.  The  special  features  of 
each  re: 

JOB  has  one  attribute  placed  In  e  specific  word  In  its  entity 
record,  end  has  e  function  attribute.  The  function  attribute 
requires  a  DC  FINE  statement  to  declare  Its  mode. 

Two  seta  In  which  e  JOS  participate*  have  their  implied  properties 
modified  by  DEFINE  statements. 

Two  attributes  of  OPERATION  ere  packed  In  the  firet  word  of  the 
entity  record . 

A  eat  to  which  an  OPERATION  belongs  has  its  removal  routines 
deleted  by  s  0CFTNE  statement. 
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Three  event  notice*  ere  declared.  The  special  features  of  each 

are: 

WEEKLY. REPORT  has  no  attributes  and  neither  ovns  nor  belongs  to 
sets  other  than  the  standard  one  defined  fo  all  event  notices. 

Ore  event,  SALE,  breaks  ties  aaong  competing  event  notices  through 
a  BREAK  TIES  declaration.  The  other  Internal  events  break  ties. 

If  they  occur,  on  a  first-cone,  first-served  basis. 

Two  external  event  types,  END. OF. SIMULATION  and  SALE,  are  declared. 
Two  Input  devices  are  declared  as  suppliers  of  external  event  triggers. 
The  priority  order  of  the  four  event  types  Is  declared  In  a  PRIORITY 
statement. 

iwo  BEFORE  statements  are  used.  Each  states  that  a  certain  rou¬ 
tine  Is  to  be  called  before  a  specified  action  takes  place.  The  argu¬ 
ments  to  these  routines  are  not  stated,  but  Implied.  (See  Table  5-5. ) 

One  TALLY  and  two  ACCUMULATE  statements  are  used.  The  special 
features  of  each  are: 

The  TALLY  statement  compiles  statistics  for  a  DUftW  variable. 

This  variable  Is  declared  In  a  separate  DEFINE  statement. 

All  of  the  statistical  counters  used  In  the  TALLY  and  ACCUMULATE 
statements  are  defined  sc  they  can  be  released.  If  they  were 
not  named,  they  would  be  given  local  names  such  ss  A, 1  and  A.?. 

FREQ  la  a  tvo-dimenafonel  array.  The  first  dimension  Is  an  en¬ 
tity  Index.  The  variable  for  which  It  accumulates  a  histogram 
le  an  attribute  of  PRODUCTION. CENTER,  The  aecond  dimension  is 
the  histogram  index  and  Is  an  integer  between  1  and  26. 

The  remaining  statements  are  self-explanatorv.  They 

Declare  a  system-owned  set. 

Use  DEFINE  TO  kiEAN  statements  to  create  shorthand  notation. 

Declare  four  global  variables:  a  two-dimensional  array,  two 
INTEGER  variables  and  a  TEXT  variable. 

Declare  a  function  and  specify  the  number  of  argument#  It  oust 
always  have. 

MAIN  f BOTHAM 

The  mein  routine  has  three  functions:  It  Initialises  the  model 
so  simulation  can  start,  it  transfers  control  to  the  timing  routine 
when  Init lalliatlon  is  complete,  and  It  resets  the  entire  system  to 
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an  ''empty"  condition  at  the  end  of  a  simulation  run  so  another  experi¬ 
ment  can  begin, 

Initialization  takes  place  in  the  routine  INITIALIZATION,  which 
ia  called  by  MAIN.  After  initialization,  the  SUBPROGRAM  system  vari¬ 
able  BETWEEN. V  is  set  to  the  routine  name  'TRACE',  indicating  that 
this  routine  is  to  be  called  before  each  event  of  the  simulation.^ 
Simulation  is  then  begun  by  the  START  SIMULATION  statement  that  re¬ 
moves  the  first  event  from  the  sets  EV.S  (  )  and  transfers  to  it. 

Simulation  proceeds  until  an  END. OF. SIMULATION  event  occur';.  This 
event,  aside  from  its  obvious  task  of  reporting  the  results  of  the 
simulation  experiment,  empties  the  events  sets,  EurS  (  ).  When 

END. OF. SIMULATION  returns  control  to  the  timing  routine,  the  lack  of 
scheduled  events  causes  control  to  pass  to  the  statement  after  START 
SIMULATION.  In  many  simulations  this  will  be  STOP.  In  this  example, 
it  is  the  first  of  many  statements  that  release  and  destroy  all  per¬ 
manent  and  temporary  entitles  for  the  reinitialization  of  a  new 
experiment.  After  these  statements  have  been  executed,  all  the 
memory  structures  set  up  by  the  previous  experiment  have  been  erased. 

In  performing  this  erasure,  the  system  set  FINISHED. GOODS. INVENTORY, 
and  the  sets  owned  by  all  the  permanent  and  temporary  entities,  are 
emptied  and  their  members  destroyed.  Finally,  all  attributes  of 
permanent  entities  are  released.  Special  features  to  notice  are: 

The  PRODUCTION. CENTER  loop,  in  which  operations  owned  by  jobs 
that  are  owned  by  production  centers  are  successively  removed 
and  destroyed. 

The  RANDOM  variable  SALES. FREQUENCY  ig  treated  as  a  set  when  it 
la  emptied. 

All  permanent  entity  attributes,  Including  set  pointers  and 
statistical  accumulators,  are  released. 

In  many  programs,  so  extensive  a  reinitialization  process  will 
not  be  necessary.  For  example,  it  is  usually  sufficient  to  zero  out 
all  attribute  values  and  empty  all  sets.  This  example  has  been 
written  to  illcitrate  what  seems  tc  be  the  worst  case. 


T 


See  Sec.  S-06, 
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In  situations  where  single  simulation  runs  arc  made  and  no  re¬ 
initialization  is  necessary,  the  initialization  routine  can  be  released 
and  its  space  regained  for  array  and  entity  storage.  The  following 
routine  shows  how  this  is  done. 

Add  to  preamble: 

DEFINE  INITIALIZATION  AS  A  RELEASABLE  ROUTINE 

Use  this  routine: 

MAIN 

PERFORM  INITIALIZATION 
RELEASE  INITIALIZATION 

START  SIMULATION 

STOP  END 

PROGRAM  INITIALIZATION 

INITIALIZATION  starts  with  some  declarations.  The  first  takes 
advantage  o*  the  DEFINE  TO  MEAN  statement  of  the  preamble  to  define 
some  local  INTEGER  variables  I,  0,  K,  L,  M,  and  N.  The  next  two 
statements  are  local  DEFINE  TO  MEAN  declarations  that  create  a  short¬ 
hand  notation  for  two  lengthy  variable  names.  The  last  declaration 
declares  a  local  ALPHA  variable  that  is  used  to  verify  that  all  in¬ 
put  data  have  been  read,, 

Since  a  mistake  may  have  been  made  in  setting  up  a  simulation 

run,  EOF.V  is  set  to  1  to  give  the  program  control  over  the  actions 

taken  when  the  end  of  the  input  data  file  is  reached.  If,  when  read¬ 
ing  TITLE,  an  end-of-flle  is  encountered,  EOF.V  is  set  to  2  and  this 
fact  is  picked  up  in  the  following  IF  statement. 

A  sequence  of  simulation  experiments  can  also  be  stopped  this 

way.  When  all  the  data  for  a  sequence  of  runs  are  exhausted,  these 

statements  will  stop  the  program. 

The  INPUT  statement  .'eads  characters  from  the  currant  input  unit 
READ. V  until  an  asterisk,  the  MARK.V  default  symbol,  la  reached.  A 
typical  simulation  TITLE  card  might  be: 

SIMULATION  RUN  NO.  1  JOB  SHOP  WITH  10  CENTERS  * 

If  some  symbol  other  than  *  is  to  be  used  as  a  TEXT  terminator,  a 
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statement  auch  as  LET  MARK.V*11?"  ia  put  at  the  head  of  INITIALIZATION. 

A  value  that  ia  the  number  of  production  centers  ia  then  read, 
and  uaed  to  reserve  the  arrays  that  hold  the  attributes  of  PRODUCTION. 
CENTER.  This  value  is  also  used  to  read  in  the  number  of  machines  in 
each  production  center,  which  are  all  idle  at  the  start  of  simulation. 

A  similar  process  then  takes  place  for  PRODUCT.  It  is  more  com¬ 
plex  in  that  a  richer  variety  of  data  structures  is  associated  with 
PRODUCT  than  with  PRODUCTION. CENTER.  The  data  structures  are: 

PRIORITY. FREQUENCY,  which  is  a  ’’ragged  table"  as  described  in 

Sec.  2-08 

SALES. FREQUENCY,  which  is  RANDOM  variable 

STRUCTURE,  which  is  a  set  with  OPERATIONS  as  members 

Also,  an  initial  local  SALE  for  a  standard  product  is  scheduled 
for  each  product  type.  In  scheduling  these  sales,  the  PRICE  of  each 
SALE  is  a  random  variable  between  0  and  the  product  type,  e.g.,  a 
type  3  product  can  be  sold  for  between  $0  and  $3,  and  the  PRIORITY 
assigned  to  a  sale  is  determined  by  a  random  draw  from  the  PRIORITY. 
FREQUENCY  table. 

At  the  end  of  Initialization,  the  numbers  of  the  input  devices 
for  the  LOCAL. SALES  and  EXPORT. SALES  external  event  units  are  read. 
This  al  .ovs  devices  to  be  changed  between  simulation  runs.  Finally, 
the  ORIGIN. R  routine  is  invoked  to  set  the  simulation  calendar  so 
Chat  calendar  dates  can  be  used  on  the  external  event  tapes. 

If  the  lasl  data  field  read  is  not  the  character  string  OK,  the 
run  terminates  with  an  error  message. 

EVENTS  AND  ROUTINES  OF  THE  SIMULATION  MODEL 

The  event  SALE  is  written  to  react  properly  to  both  internal  and 
external  event  triggers.  The  event  creates  a  Job,  determines  its 
routing  through  the  shop,  end  starts  it  in  its  processing  sequence. 

If  the  sale  internal,  i  new  order  is  scheduled  for  the  same  product 
some  time  in  the  future. 

The  EVENT  statement  defines  SALE  as  an  event  routine  with  three 
input  argument*.  It  also  declares  that  when  a  SALE  event  notice  is 
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selected  u  Che  next  event,  the  firet  three  programmer-def ined  attri¬ 
butes  of  SALE  are  to  be  assigned  to  the  local  variables  PRODUCT, 

PRICE,  and  PRIORITY,  and  that  the  event  notice  is  not  to  be  destroyed. 

An  important  point  to  note  here  is  that  PRODUCT,  PRICE,  and  PRIORITY 
are  local  variables;  they  are  not  the  same  variables  as  wnra  defined 
as  attributes  of  the  event  notice  in  the  preamble. 

The  first  tvo  statements  are  local  declarations  we  have  seen 
before.  The  third  statement  is  the  one  that  allows  SALE  to  be  used 
with  both  Internal  and  external  event  triggers.  It  says:  if  SALC 
has  occurred  externally,  read  three  data  items,  otherwise  do  not  read 
any  data.  Regardless  of  how  the  event  was  triggered,  values  get 
assigned  to  PRODUCT,  PRICE,  and  PRIORITY. 

The  next  statement  adds  1  to  an  element  of  PRODUCT. SALES,  counting 
the  number  of  times  particular  products  are  sold  at  different  prices. 

The  next  section  of  code  creates  a  JOB  entity  and  assigns  values 
to  its  attributes.  The  JOB  is  the  entity  that  will  flow  through  the 
shop,  and  will  represent  the  sale  from  now  on.  If  SALE  is  triggered 
Internally,  it  is  a  sale  for  a  standard  product,  and  the  standard 
sequence  of  operations  for  producing  that  product  is  transferred  from 
STRUCTURE (PRODUCT)  to  RGUTING(JOB).  Notice  that  implied  subscripts 
are  used  in  th*  program  for  both  STRUCTURE  and  ROUTING.  If  the  SALE 
is  triggered  externally,  it  represents  a  possible  special  order.  As 
special  order  operations  are  subsets  of  operations  that  produce 
standard  products,  data  are  read  that  select  a  subset  of  operations 
for  producing  the  order  and  store  it  in  the  JOB  routing  set. 

With  this,  the  task  of  SALE  is  almost  completed.  Processing  of 
the  now  completely  specified  JOB  Is  started  by  the  routine  ATTEND. TO. JOB. 
After  this  routine  deals  with  the  job,  it  returns  to  SALE,  where 
arrangements  are  made  for  the  next  SALE.  If  the  SALE  just  processed 
was  triggered  externally,  the  event  notice  is  destroyed  and  control 
returned  to  the  timing  mechanism.  The  next  exrernsl  event  will  be 
selected  automatically  by  the  timing  mechanism  from  the  external 
events  units.  If  the  SALE  was  triggered  Internelly,  the  event  notice 
le  reused  to  schedule  another  sale  for  tais  same  product,  with  e 
different  price  and  priority.  The  time  at  which  this  sale  is  to 
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occur  is  determined  by  a  random  sample  from  the  RANDOM  variable 
SALES. FREQUENCY (PRODUCT) ;  again,  implied  subscripting  is  used. 

ATTEND. TO. JOB  uses  the  routing  of  the  current  JOB  to  select  the 
production  center  in  which  the  first  operation  is  to  be  performed. 

The  first  statement  in  ATTEND. TO. JOB  is  important,  as  it  illustrates 
several  basic  operations  in  SIMSCRIPT  II  programming.  First,  it 
illustrates  the  use  of  a  set  pointer  to  select  a  set  member;  F. ROUTING 
(JOB)  picks  out  an  entity  identification  number.  This  identification 
number  is  then  used  with  an  attribute  of  the  entity  type  it  raprasants 
(OPERATION)  to  determine  a  value;  MACHINE. DESTINED(F.ROUTING(JOB))  is 
the  number  of  the  production  center  required  by  the  first  operation. 

This  number  is  assigned  to  PRODUCT  ION. CENTER  so  that  implied  sub¬ 
scripting  can  be  used  later  on  in  the  program.  The  statement  could 
have  been  written  as:  LET  PRODUCTION. CENTER-MACHINE. DESTINED(F. ROUTING) , 
as  JOB  could  be  Implied. 

After  the  production  center  is  determined,  NUMBER. IDLE (PRODUCT I ON. 
CENTER)  is  examined  to  determine  if  a  machine  is  available  in  this 
production  center  to  process  the  Job.  If  a  machine  is  available,  it 
is  allocated  to  the  job  by  first  subtracting  1  from  the  idle-machine 
counter  and  then  calling  the  routine  ALLOCATION.  If  e  machine  is  not 
available,  the  job  is  filed  in  a  QUEUE  that  is  owned  by  the  production 
center.  When  a  machine  becomes  free  at  some  later  date,  the  QUEUE 
will  be  examined  and  a  Job  removed  for  processing.  All  the  time  a 
Job  spends  in  the  shop  in  excess  of  its  actual  processing  time  is 
spent  in  queues  belonging  to  different  production  centers  and  in 
finiahed  goods  Inventory. 

ALLOCATION  knows  that  It  is  given  a  certain  JOB  by  the  fact  that 
the  identification  m»btr  of  this  JOB  la  in  the  global  variable  J08. 

It  removes  the  first  operation  from  the  ROUTING  of  this  JOB,  and 
schedules  an  END. OF. PROCESS  event  to  occur.  The  identification  and 
the  production  center  identification  are  assigned  to  the  first  two 
attributes  of  this  event  notice.  The  event  is  scheduled  for  a 
standard  time  in  .he  future,  PROCESS. TIME(OPERATION) ,  modified  by  a 
factor  that  depends  upon  the  current  time  and  the  time  the  Job  was 
promised  to  the  customer.  Note  the  use  of  implied  subscripts  in 
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communicating  between  Che  roudnea  ALLOCATION  end  EXPEDITE. FACTOR, 
and  within  Che  roudnea  Cheaaelvea. 

EXPEDITE. FACTOR  looka  at  the  DUE. DATE  of  Che  current  JOB  and 
compares  1C  with  Che  current  aiaulatlon  cine.  If  Che  job  la  late, 
EXPEDITE. FACTOR  recurna  a  value  of  0.5  Co  shorten  Che  proceaalng  cine 
of  the  operation.  If  Che  job  la  noc  late,  a  value  between  0  and  1  la 
computed,  which  dependa  upon  che  time  remaining  before  Che  job  will 
be  lace  and  che  proceaalng  time  of  Che  current  operation.  Again, 
implied  aubacrlpta  are  employed. 

The  event  ENO. OF. PROCESS  doea  two  things:  it  take*  care  of  the 
JOB  that  hae  juat  finlahed  proceaalng  at  a  production  center,  end  it 
takes  care  of  the  production  center.  Plrat  it  aeala  with  the  job. 

If  the  ROUTING  of  the  job  ia  empty,  all  lta  opera t Iona  have  been  per¬ 
formed  and  it  can  paaa  from  the  ahop.  If  the  job  la  finlahed  on  time, 
or  la  late,  lta  entity  record  ia  deatroyed  immediately.  If  It  la 
early,  It  ia  filed  in  FINISHED. GOODS. INVENTORY  where  it  ataya  until 
lta  DUE. DATE.  If  the  job  ia  not  completed,  the  routine  ATTEND. TO. JOB 
aeaigna  It  to  lta  next  operation.  Note  the  uae  of  the  REMOVE  etate- 
aent  in  ALLOCATION  that  make a  thla  aaalgnment  automatic. 

It  la  important  at  thla  point  to  underatand  the  flow  of  control 
between  eventa  and  roudnea.  The  reader  la  advleed  to  make  up  aome 
data,  or  uee  the  data  at  the  end  of  the  program  and  trace  through 
several  jobs  and  chair  flow  through  the  shop. 

After  disposing  of  the  job,  END. OF. PROCESS  deals  with  the  pro¬ 
duction  center.  If  no  jobs  ere  awaiting  processing  in  lta  QUEUE,  the 
machine  just  released  Is  returned  to  the  Idle  state.  If  jobs  are 
welting,  one  la  selected  according  to  the  queue's  priority  rule  and 
processing  started  on  it, 

Thla  completes  the  routines  and  eventa  that  are  directly  Involved 
In  the  shop  simulation.  The  remaining  roudnea  and  events  deal  with 
preparing  reports,  stopping  che  simulation,  collecting  data,  and 
monitoring  the  model. 

EVENTS  AND  ROUTINES  FOR  HCTtlTOEIMO,  DEBUGGING,  AND  ANALYSIS 

The  event  MEEKLY, REPORT  occurs  periodically.  It  keeps  track  of 
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the  number  of  simulated  weeks  that  have  gone  by,  resets  counters  that 
are  used  for  collecting  periodic  statistical  Information,  calls  on  a 
report  routine,  and  reschedules  Itself.  The  feature  of  Interest  in 
this  routine  Is  the  use  of  the  word  WEEK  In  the  RESCHEDULE  statement. 
This  word  was  defined  to  mean  *H0'JRS.V*7  HOURS  In  the  program  preamble; 
the  RESCHEDULE  statement  la  therefore  compiled  as  RESCHEDULE  THIS 
WEEKLY. REPORT  IN  1*H0URS.V*7  HOURS.  When  declarations  such  as  this 
are  made,  care  must  be  taken  that  the  defined  word  is  not  used  inad¬ 
vertently  in  another  context;  e.g.,  there  can  be  no  variable,  routine, 
label,  or  set  named  WEEK  in  this  program. 

The  event  END. OF. SIMULATION  is  triggered  externally.  Its  only 
purpose  is  to  terminate  a  simulation  run,  which  it  does  by  emptying 
the  events  sets  so  control  will  pass  to  the  statement  after  START 
SIMULATION  when  END. 0C. SIMULATION  returns  control.  In  addition  to 
stopping  the  simulation,  END. OF. SIMULATION  calls  REPORT  and  lists  an 
array. 

The  next  two  routines,  QUEUE. CHECK  and  STAY. TIME,  are  associated 
with  the  BEFORE  statements  of  the  preamble.  QUEUE. CHECK  is  called 
before  filing  or  removing  is  done  in  any  QUEUE;  STAY. TIME  is  called 
before  any  JGB  is  destroyed.  The  sole  purpose  of  QUEUE. CHECK  is 
error  checking;  its  code  is  straightforward.  STAY. TIME  has  a  dif¬ 
ferent  purpose.  It  computes  the  time  a  JOB  spends  in  the  shop, 
assigning  this  time  to  a  variable  for  which  a  TALLY  operation  has 
been  specified.  Note  that  STAY  is  used  to  compute  statistics  through 
its  TALLY  computations,  but  as  it  is  not  used  anywhere  else  in  the 
program,  la  declared  DUWY  and  given  no  storage  location. 

TRACE  la  more  complicated.  Triggered  by  a  call  from  BETWEEN. V 
before  every  event,  it  la  used  for  event  tracing  and  for  releasing 
Jobs  from  finished  goods  inventory  when  the  simulation  clocx  reaches 
their  due  date.  The  first  part  of  the  routine  desls  with  this  task. 

The  code  makes  use  of  the  fact  that  jobs  are  ranked  in  FINISHED. GOODS. 
INVENTORY  in  order  of  their  DUE. DATE  to  make  the  search  more  efficient. 

The  trace  section  of  the  program  :rea  EVENT. V  to  branch  to  a 
different  output  statement  according  to  the  tvpe  of  event  that  has 
been  selected  to  occur  next.  These  output  statements  print  different 
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items  of  information  about  each  event  type.  The  program  could  as 
easily  be  written  to  take  actions  on  the  event  types,  such  as  turning 
off  the  trace  by  setting  BETWEEN. V*0  when  TIME » V  reaches  a  certain 
value  or  a  special  kind  of  event  occurs. 

Routine  NUMBER. IDLE  is  a  left-handed  routine  that  Implements  the 
monitoring  of  the  attribute  NUMBER. IDLE.  It  has  several  unusual 
features.  One  reason  for  defining  NUMBER. IDLE  as  a  left-hand  monitored 
variable  is  to  enable  the  programmer  to  save  values  of  the  number  of 
machines  idle  over  time  for  later  processing,  without  putting  the  code 
to  do  this  in  the  simulation  routines.  If  at  some  later  date  the 
programmer  wants  to  remove  this  feature  from  the  program,  he  need  only 
remove  the  preamble  card  that  states  that  NUMBER. IDLE  is  monitored 
and  the  routine  NUMBER. IDLE,  and  recompile  the  program.  No  changes 
need  be  made  to  any  other  routines. 

The  program  uses  two  SAVED  local  arrays  to  collect  and  write  on 
tape  successive  values  of  NUMBER. IDLE  for  each  of  the  production  cen¬ 
ters.  A  global  variable  TAPE. FLAG  is  used  to  tell  the  routine  when 
initialization  of  the  SAVED  local  variables  is  required;  TAPE. FLAG 
is  set  to  zero  at  the  start  of  every  simulation  experiment.  The  pro¬ 
gram  puts  successive  files  of  arrays  on  tape.  Each  file  contains 
data  for  a  different  experiment.  The  routine  demonstrates  SAVED 
variables,  local  arrays,  a  left-handed  function,  subscripted  sub¬ 
scripts,  and  monitored  varia'  *s. 

The  last  routines  deal  th  reports  of  system  activity  during 
a  simulation  experiment.  They  print  out  the  parameters  of  the  experi¬ 
ment  and  the  measurements  made  during  the  experiment.  They  illustrate 
the  report-generating  facilities  of  SIKSCRIPT  II  as  well  as  the 
COMPUTE  statement. 

S-36  MISCSLLAUFCUS  SIMULATION  TOFICS 

Event  Tracing  and  Monitorin'’ 

Statistics  obtained  thro-.^gh  TALLY  and  ACCUWLATE  statements 
reveal  aggregate  properties  of  a  model,  but  sav  little  «bout  the  way 
It  responds  In  particular  situations.  When  checking  out  a  model,  it 


Is  Important  that  all  aspects  of  system  dynamics  be  verified;  given 
a  situation,  what  events  are  generated  to  resolve  it;  given  a  syatem 
state,  what  events  are  executed  in  passing  from  it  to  another  »tate. 

Unless  output  statements  are  Incorporated  Into  every  event  rou¬ 
tine,  it  is  impossible  to  trace  system  dynamics  completely.  BEFORE 
end  AFTER  statements  are  useful  but  inadequate  aa  a  sole  source  of 
tracing  ability.  What  is  wanted  is  an  entry  to  the  timing  routine 
that  allows  selected  information  to  be  output  before  each  event  is 
executed. 

The  SUBPROGRAM  system  variable  BETWEEN. V  la  provided  for  this 
purpose.  The  timing  routine  contains  the  statements 

IF  BETWEEN. V  IS  NOT  ZERO,  CALL  BETWEEN. V 
REGARDLESS.... 

immediately  before  the  statements  that  branch  to  the  selected  "next" 
event  routines.  After  a  ne^t  event  selection  has  been  made,  and 
before  the  event  routine  is  called,  BETWEEN. V  is  examined  to  see  if 
tracing  is  to  be  done.  At  the  start  of  every  simulation  the  system 
sets  BETWEEN. V  to  aero;  unless  the  programmer  assigns  a  routine  name 
to  it,  events  are  executed  one  after  another  without  interruption. 

A  global  variable  named  EVENT. V  makss  selective  tracing  possible. 
After  the  timing  mechanism  selects  an  event  notice  and  sets  TIME.V 
to  its  TIME. A  attribute,  EVENT. V  is  set  to  a  code  number  representing 
the  class  of  event  that  has  been  chosen.  These  codes  are  integers 
from  1  to  £VENTS. V;  they  are  assigned  In  two  ways:  (1)  events  appear¬ 
ing  in  a  PRIORITY  statement  are  numbered  1,2,,..,N  in  the  order  in 
which  they  are  listed,  and  (2)  events  not  appearing  in  a  PRIORITY 
statement  are  numbered  in  the  order  in  which  they  appear  in  a  preamble. 
If  some  events  appear  in  a  PRIORITY  statement  and  some  do  not,  num¬ 
bering  starts  with  those  events  in  the  PRIORITY  statement  and  continues 
with  the  remaining  everts.  The  code  assigned  to  a  particular  event 
is  etored  in  the  global  variable  I .even*. 

EVENT.  V  is  most  conveniently  used  in  a  coerputed  GO  TO  statement, 
directing  control  to  statements  that  are  relevant  to  the  event  type 
just  selected.  The  following  example  illustrate*  how  s  tracing  routine 
is  wtitten: 


PREAMBLE 

EVENT  NOTICES....  INCLUDE  ARRIVAL  AND  SALE 
EVERY  END.OF. PROCESS  HAS  A  TIME  AND  A  WHO. COMPLETED 
EVERY  SHIFT. CHANGE  HAS  A  PERIOD. NUMBER 
PRIORITY  ORDER  IS  SALE,  SHIFT. CHANGE  AND  ARRIVAL 


etc. 


END 


MAIN 

NOW  INITIALIZE 
LET  BETWEEN. V-' TRACE' 
START  SIMULATION 
STOP  END 


ROUTINE  TO  TRACE 

GO  TO  SALE,  SHIFT. CHANGE,  ARRIVAL  OR  END.OF. PROCESS 
PER  EVENT. V 

'SALE'  WRITE  TIME.V  AS  "SALE  OCCURRED  AT  ".0(10,4),/ 

RETURN 

'SHI FT. CHANGE'  WRITE  TIME.V.  PERIOD. NUMBER  AS  "SHIFT  CHANGE  OCCURRED", 
"AT  " ,D(10,4) ,"  FOR  PERIOD  ",  I  4,/ 

RETURN 

'ARRIVAL'  WRITE  TIME.V  AS  "ARRIVAL  OCCURRED  AT  \D(10,4),/ 

RETURN 

'END. OF. PROCESS'  WRITE  TIME.V,  TIME  AND  WHO. COMPLETED  AS  "END  OF", 
"PROCESS  OCCURRED  AT  ",D( 10,4) "JOB  TOOK  ".0(5,1;, 
"TIME  UNITS  A*;0  WAS  COMPLETED  BY  MAN  NO.  ",I  4,/ 

RETURN 

END 


The  key  lent  Co  node*  about  thla  prograa  ara: 

EVENT. V  la  an  INTEGER  variable  chat  the  timing  routine  aete  to 
a  code  representing  the  type  of  event  about  to  be  executed. 

TlHt.V  la  a  REAL  variable  that  la  the  alaulated  tine  the  event 
about  ' )  be  executed  la  to  occur. 

A  global  variable  having  the  sane  naee  aa  the  event  type  aelected 
contains  the  Identification  maber  of  the  selected  event  notice. 
Thla  permits  laplled  aubacrlpta  to  be  uaed  in  the  trace  routine. 

A  prograaaar  can  check  for  a  particular  event  by  using  the  I.#i«en 


variables,  aa  In: 
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ROUTINE  TO  TRACE 
IF  EVENT. V  «  I. ARRIVAL, 

WRITE  TIME.V  AS  “ARRIVAL  AT  \D(10t4),/ 
ELSE 

RETURN  ENO 


BETWEEN. V  can  also  ba  used  to  turn  BEFORE  and  AFTER  traces  on 
and  off.  ElChar  progressed  conditions  or  events  can  be  used.  The 
following  prograa  illustrates  this. 


0 RE AMBLE 

TEMPORARY  ENTITIES... 

EVERY  DOG  BELONGS  TO  SOME  KENNEL 
PERMANENT  ENTITIES... 

EVERY  FARM  OWNS  A  KENNEL 
EVENT  NOTICES... 

EVERY  SALE  HAS  A  PRICE  AND  A  DOG. NUMBER 
EXTERNAL  EVENTS  ARE  SIGNAL  AND  END. OF. SIMULATION 
OCFINE  PROGRAM  AS  A  SUBPROGRAM  VARIABLE 
BEFORE  FILING  IN  KENNEL,  CALL  PROGRAM 
ENO 


MAIN 

LET  PROGRAM  •  'FILE. TRACE* 
CALL  INITIALIZATION 
START  SIMULATION 
ENO 


EVENT  SIGNAL 

READ  CODE  IF  CODE  ■  1 ,  LET  PROGRAM  -  0  RETURN  ELSE 
IF  BETWEEN. V  •  0,  LET  BETWEEN. V  -  'TRACE' 

RETURN 

ELSE  LET  BETWEEN. V  -  0  RETURN 
END 


ROUTINE  TO  TRACE 

PRINT  1  LINE  WITH  EVENT. V  AND  TIME.V  THUS 
EVENT  T*PE  **  EXECUTED  AT  TIME  *•**.*• 
RETURN 
ENO 


ROUTINE  FOR  FILE. TRACE  GIVEN  ENTITY  AND  SUB 
DEFINE  ENTITY  AMO  SUB  AS  INTEGER  VARIABLES 
WRITE  SUB  AS  "DOG  PUT  IN  KENNEL(",I  2,m)mj 
RETURN  EW) 


The  spates  provides  another  kind  of  trace  facility  through  a 
TRACE  stateawnt.  Whan  used,  this  statement  displays  the  aeaory  loca¬ 
tion  the  statement  was  executed  frow,  and  the  locations  of  all  higher- 
level  routine  calls  currently  In  effect.  The  TRACE  statement  thus 
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provides  a  dynamic  map  of  Che  function  and  procedure  call3  that  are 
in  effect  when  it  is  executed.  The  output  of  TRACE  looks  like: 

AT  LOCATION  ****** 

CALLED  FROM  ****** 

CALLED  FROM  ****** 


CALLED  FROM  ****** 


The  Af  LOCATION  line  displays  the  memory  location  of  the  object  pro- 
gram  statement  that  called  TRACE.  The  first  CALLED  FROM  line  displays 
the  memory  location  of  the  object  program  statement  that  called  the 
routine  that  called  TRACE.  And  so  on.  If  TRACE  is  executed  in  a  main 
routine,  no  CALLED  FROM  lines  appear. 

A  programmer  c«n  identify  the  aource  program  statements  that 
correspond  to  displayed  memory  locations  from  the  memory  map  and 
assembly  listings  that  are  part  of  the  normal  SIMSCRIPT  II  compiler 
output.  Since  computer  systems  generate  maps  and  listings  In  dif¬ 
ferent  formats,  it  is  impossible  to  discuss  how  one  does  this  here. 

The  following  program  uses  symbolic  names  rather  than  memory  locations 
to  illustrate  TRACE;  SIMSCRIPT  II  implementation  manuals  give  more 
explicit  information. 

Example  of  the  use  of  TRACE: 

PREAMBLE 

NORMALLY  MODE  IS  REAL 

DEFINE  COMPUTE  AS  A  REAL  FUNCTION 

END 


MAIN 

READ  X,  Y  AND  Z  AS  3  0(10,3)  USING  UNIT  6 
CALL  CALCULATE  GIVING  X,  v  ANO  Z  YIELDING  Q 
tIST  X,  Y,  Z  ANC  Q 
STOP  END 


ROUTINE  TO  CALCULATE  GIVEN  A,  B,  AND  C  YIELDING  D 
IF  A  >  8>C.  LET  0-A  RETURN  ElSE 

IF  A  >  B,  LET  D*A-8  RETURN  ELSF 

IF  A  •  C,  LET  D-A-C  RETURN  ELSE 

t,  LET  D-COMPUTE(A,  b,  C; 

*■  RE T  URN  END 
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ROUTINE  TO  COMPUTER,  F,  G) 

IF  G  IS  NEGATIVE, 

TRACE 

WRITE  E,  F,  G  AS  /,  B  10,  "AN  ERROR  WAS  FOUND,  THE", 
"DATA  IS",  3  D(5,1). 

STOP 

ELSE  RETURN  WITH  3QRT.F(E**2+F**2+G**2) 

END 


Given  as  data  the  numbers  -1C,  10,  and  -5,  this  program  produces 
the  display 

AT  LOCATION  *3 
CALLED  FROM  *2 
CALLED  FROM 

AN  ERROR  WAS  FOUND,  THE  DATA  IS  -10.0  10.0  -5.0 

By  tracing  through  the  memory  locations,  a  programmer  can  ate 
that  the  error  was  found  at  —  in  routine  COMPUTE,  celled  from  ^  — 
in  routine  CALCULATE,  called  from  —  in  the  main  routine.  Each  of 
the  ir.j  can  be  traced  to  a  source  program  statement.  The  flow  of  the 
program  can  be  reconstructed  and  the  source  of  the  error  exposed. 

The  reader  should  go  through  the  examples  in  previous  sections  and 
attempt  to  use  TRACE  wherever  he  feels  it  is  applicable. 

TRACE  is  also  used  by  the  SIMSCRIPT  II  system  when  a  system  error 
is  found,  such  an  attempt  to  read  a  decimal  number  into  an  INTEGER 
variable.  The  Information  produced  by  the  trace  display  enables  a 
programmer  to  locate  errors  in  his  source  program,  although  both  he 
and  the  system  may  have  gone  through  several  levels  of  calls  before 
the  error  was  found  and  flagged. 

TRACE  uses  the  current  output  unit.  If  a  program  finds  an  error 
while  a  tape,  disk,  or  drvn  is  current,  a  printer  should  be  specified 
before  TRACE  is  called.  Assume  that  unit  3  is  the  standard  output 
unit,  a  printer.  A  safe  statement  for  using  TRACE  is: 

TRACE  USING  3 


When  the  system  callr  TRACE,  it  automatically  sets  the  standard  out¬ 
put  device  as  the  current  output  unit  and  restores  the  unit  chat  was 
current  when  the  trace  is  completed. 


Synchronous  Variables 

Certain  simulations  can  ruffer  from  what  is  called  "parallel 
interaction,"  two  events  happening  at  the  some  time  that  affect  one 
another.  A  simple  example  of  this  can  be  seen  in  the  situation  where 
two  events  examine  and  possibly  modify  the  same  variable.  Since  the 
events  are  executed  serially,  though  with  the  sane  IIME.V,  the  event 
that  occurs  first  can  modify  the  variable  so  taat  the  value  seen  by 
the  second  event  is  not  the  one  it  should  be  seeing.  The  problem  is 
one  of  synchronization,  of  getting  variables  to  change  value,  not 
necessarily  when  assignments  are  made,  but  when  simulated  time  Increases 
In  programs  where  it  is  necessary  to  account  for  parallel  inter¬ 
actions,  it  is  possible  tc  do  sc  by  using  a  left-hand  monitored  array 
and  the  BETWEEN. V  mechanism.  The  following  example  illustrates  how 
"synchronous  variables"  can  be  defined  and  used: 

PREAMBLE 

THE  SYSTEM  OWNS  A  SYNCH. SET 
TEMPORARY  ENTITIES... 

EVERY  MEMO  HAS  A  VALUE  AND  A  SUB  AND  BELONGS 
TO  THE  SYNCH. SET 

DEFINE  SUB  AS  AN  INTEGER  VARIABLE 
DEFINE  X  AS  A  REAL,  1-DIMENSIONAL  ARRAY  MONITORED 
ON  THE  LEFT 
END 


MAIN 

LET  BETWEEN. V SYNCH' 
START  SIMULATION 
STOP  END 


ROUTINE  SYNCH 

DEFINE  T  AS  A  REAL,  SAVED  VARIABLE 
IF  T  =  TIME .V,  RETURN 
OTHERWISE 
LET  T  *  TIME. V 

FOR  EACH  MEMO  IN  SYNCH. SET,  DO 
REMOVE  MEMO  FROM  SYNCH. SET 
LET  X(SUB)  *  VALUE 
DESTROY  MEMO 
LOOP 


LEFT  ROUTINE  X(J) 

DEFINE  J  AS  AN  INTEGER  VARIABLE 
ENTER  WITH  A 
CREATE  A  MEMO 
FILE  MEMO  IN  SYNCH. SET 
LET  SUB-J 
LET  VALUE-A 
RETURN  END 


In  a  program  containing  these  definitions  and  routines,  the  value 
of  an  element  of  X  is  changed  only  when  simulated  time  advances.  A 
statement  such  as  LET  X(5)  *  X ( 5 )  +  1  within  an  event  does  not  change 
the  value  of  X(5)  until  simulated  time  advances. 

The  routine  for  X  can  be  used  as  a  prototype  for  all  synchronous 
variables.  Only  the  number  of  subscripts  and  mode  need  be  changed 
for  other  situations.  The  SYNCH  routine  can  be  used  as  is,  or  incor¬ 
porated  into  a  more  extensive  "BETWEEN. V"  routine. 


Activity  Scanning 

Event  scheduling  is  one  of  several  methods  of  controlling  system 
dynamics.  Other  computer  simulation  languages,  such  as  GSP,  CSL,  and 
SIMULA,  are  based  on  activity  scanning  and  pivcess  control. 

The  concept  of  activity  scanning  is  easily  incorporated  In  a 
SIMSCRIPT  II  simulation  through  the  BETWEEN. V  mechanism.  The  follow¬ 
ing  program  shows  how  this  can  be  done.  Since  implementation  is  up 
to  the  programmer,  any  degree  of  sophistication  required  is  available. 
It  is  possible  to  program  a  simulation  using  pure  event  sequencing, 
pure  activity  scanning,  or  a  mixture  of  both. 

Consider  a  shop  in  which  a  man  and  a  machine  must  work  together 
to  produce  some  products,  the  man  can  work  alone  to  produce  others, 
and  the  machine  can  work  alone  to  produce  others.  The  basic  element 
of  interest  is  the  multlresource  nature  of  the  problem  and  how  it  la 
handled  by  activity  scanning.  To  emphasise  this  aspect,  all  other 
facets  of  the  problem  are  simplified. 
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PRE AMBLE 

PERMANENT  ENTITIES 

EVERY  MACHINE  HAS*A  STATUS,  A  CLOCK  AND  A  PROCESSING. TIME 
EVERY  MAN  HAS  A  CONDITION,  A  WATCH  AND  A  WORK. TIME 
THE  SYSTEM  OWNS  A  QUEUE 
EVENT  NOTICES  INCLUDE  STATE. CHANGE 

EVERY  SALE  HAS  A  CODE  AND  MAY  BELONG  TO  THE  QUEUE 
DEFINE  CODE,  STATUS  AND  CONDITION,  AS  INTEGER  VARIABLES 
PRIORITY  ORDER  IS  STATE. CHANGE  AND  SALE 
END 


MAIN 

READ  N. MACHINE  AND  N.MAN 

CREATE  EVERY  MACHINE  AND  MAN  "INITIAL  CONDITIONS  ALL  ZERO 

SCHEDULE  A  SALE  AT  0.0 

LET  CODE  -  UNIFORM. F( 1.0, 3. 0,1 ) 

LET  BETWEEN. V-' ACTIVITY. SCAN' 

START  SIMULATION 
STOP  END 


EVENT  SALE  GIVEN  CODE-SAVING  THE  EVENT  NOTICE 

DEFINE  CODE  AS  AN  INTEGER  VARIABLE 

FILE  THIS  SALE  IN  THE  QUEUE 

SCHEDULE  A  SALE  AT  TIME.V+0.5 

LET  CODE  -  UNIFORM. F(0.0, 3.0,1) 

RETURN  END 


EVENT  STATE. CHANGE 
RETURN  END 


ROUTINE  FOR  ACTIVITY. SCAN 

DEFINE  MAN. CODE,  MACHINE. CODE  AND  BOTH. CODE  AS  INTEGER  VARIABLES 
FOR  EACH  MAN,  WITH  WATCH-TIME. V,  DO  LET  CONDITION-O 

LET  WATCH-RINF.C 
LOOP 

FOR  EACH  MACHINE,  WITH  CLOCK-TIME. V,  DO  LET  STATUS-0 

LET  CLOCK-RINF.C 
LOOP 

UNTIL  QUEUE  IS  EMPTY  OR  (MAN. CODE-1  AND  MACHINE. CODE-1  AND 
BOTH, CODE -1 ) ,  DO 

REMOVE  THE  FIRST  SALE  FROM  THE  QUEUE 
GO  TO  MAN  OR  MACHINE  OR  BOTH  PER  CODE 
•MAN'  FOR  EACH  MAN  WITH  CONDITION-O,  FIND  THE  FIRST  CASE 

IF  NONE 

•FAILURE'  LET  MAN. CODE-1  FILE  THE  SALE  IN  THE  QUEUE  GO  TO  LOOP 
ELSE  LET  CONDITION-1  LET  WATCH-TIME.V+WORK.TIME 
'OONE'  DESTROY  THE  SALE  GO  TO  LOOP 

•MACHINE'  FOR  EACH  MACHINE  WITH  STATUS-0,  FIND  THE  FIRST  CASE 
IF  NONE, 

LET  MACH  I NE. CODE -1  GO  TO  FAILURE 
ELSE  LET  STATUS-1  LET  CLOCU-T IME . V+PROCESS ING . T IME 

GO  TO  OONE 


t 
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'BOTH'  FOR  EACH  MAN  WITH  CONDITION-O,  FIND  THE  FIRST  CASE 

IF  NONE, 

GO  AHEAD 

ELSE  FOR  EACH  MACHINE  WITH  STATUS-O,  FIND  THE  FIRST  CASE 
IF  NONE, 

'AHEAD'  LET  BOTH. CODE-1  GO  TO  FAILURE 

ELSE  LET  CONDITION-1  LET  STATUS-1 
LET  T -MAX. F(PROCESSING. TIME,  WORK. TIME) 

LET  CLOCK-T  LET  WATCH-T  GO  TO  DONE 
'LOOP'  LOOP 

FOR  EACH  MAN,  COMPUTE  T  AS  THE  MINIMUM  OF  WATCH 
FOR  EACH  MACHINE,  COMPUTE  S  AS  THE  MINIMUM  OF  CLOCK 
SCHEDULE  A  STATE. CHANGE  AT  MIN. F(T,S) 

RETURN 

END 


The  reader  will  notice  that  thi»  program  has  no  output  statements 
and  no  data  collection  statements  and  Is  unrealistic  In  other  ways. 

One  exercise  a  reader  might  undertake  Is  conversion  of  the  program 
to  a  complete  and  meaningful  simulation  model. 

In  addition  to  Its  Incompleteness,  the  program  makes  no  attempts 
at  execute-time  efficiency.  A  second  exercise  Is  alteration  of  the 
program,  perhaps  adding  events  or  other  mechanisms,  to  make  It  execute 
more  efficiently. 


5-07  RECAP 


Many  of  the  statements  In  Levels  1  through  5  are  definitional. 

Of  the  65  different  statements  in  these  levels,  20  are  definitional; 

14  can  only  be  used  in  the  preamble.  This  section  recaps  these  state¬ 
ments  and  restates  the  most  Important  rules  about  their  use. 

Table  .'>-11  lists  the  statements  that  can  appear  in  a  preamble 
and  states  their  rules  of  precedence. 


Table  5-11 


PREAMBLE  STATEMENTS 


Statement 

Type 

Statement 

Rules 

la 

b 

c 

d 

e 

NORMALLY 

DEFINE  TO  MEAN 
SUBSTITUTE 

SUPPRESS  SUBST. 
RESUME  SUBST. 

Can  appear  anywhere  in  preamble. 

2a 

TEMPORARY  ENTITIES 

A  preamble  may  contain  many  Type  2a, 

b 

PERMANENT  ENTITIES 

2b,  and  2c  statements.  Each  may  be 

c 

EVENT  NOTICES 

followed  by  a  group  of  Type  3a,  4, 
and  5  statements. 

3a 

EVERY 

Many  can  follow  a  Type  2  statement.  An 

b 

THE  SYSTEM 

entity  or  event  notice  name  can  appear 
in  more  than  one  EVERY  statement. 

4 

DEFINE  variable 

No  precedence  relation  if  It  defines  a 
global  variable.  Must  follow  all  Type 

3a  statements  if  it  defines  an  attribute 
named  in  them.  A  variable,  attribute, 
or  function  name  can  only  appear  in  one 
DEFINE  statement. 

5 

DEFINE  Bet 

Must  follow  Type  4  statements  in  a 

Type  2  statement  group. 

No  Type  6-9  statements  can  precede  any  Type  2-3  statements. 

6a 

BREAK  TIES 

One  statement  allowed  for  each  event 

b 

c 

EXTERNAL  EVENTS 
EXTERNAL  UNITS 

notice. 

7 

PRIORITY 

Must  follow  all  Type  2c  and  6b  statements. 

8a 

Allowed  for  each  temporary  entity,  set 

b 

and  event  notice. 

9a 

TALLY 

One  statement  allowed  for  each  global 

b 

ACCUMULATE 

variable  or  attribute. 

Of  these  statements,  only  Types  1  and  4  can  be  uaed  In  routine* 
to  declare  local  background  condition* ,  variable*,  and  aubatltutlon*. 
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Appendix 

SIMSCRIPT  II  SYSTEM  NAMES 


CONST/JtTS 


VARIABLES  FUNCTIONS 


EXP.  C 
INF.C 
PI.C 

RADIAN. C 
RINF.C 


SETS 

EV.S 

ENTITIES 

RANDOM. E 

ATTRIBUTES 

EUNIT.A 
F.EV.S 
I VALUE. A 
LENGTH. A 
M.EV.S 
PROB.A 
P.EV.S 
RVALUE. A 
S.EV.S 
TIME. A 

ROUTINES 

ORIGIN. R 


BETWEEN. V 
BUFFER. V 
EOF.V 

EVENT. V 
EVENTS. V 
HOURS. V 
LINE.V 
LINES. V 
MARK.V 
MINUTES. V 
PAGE . V 
RCOLUMN. V 
READ.V 
SEED. V 
TIME. V 
WCOLUMN. V 
WRITE. V 


ABS.F 

ARCCOS.F 

ARCSIN.F 

ARCTAN.F 

ATOT.F 

BINOMIAL. F 

CONCAT.F 

COS.F 

DATE.F 

DAY.F 

DIM.F 

DIV.F 

EFIELD.F 

ERLANG. F 

EXP.F 

EXPONENTIAL. F 
FHAC.F 
GAMMA. F 

HOUR. F 
INT.F 
I STEP . F 
ITOA.F 
l  IN.  F 
LOG.E.F 
LOG. NORMAL. F 
LOG. 10. F 
MAX.  F 
MIN.  F 
MINUTE. F 
MOD.F 
MONTH. F 
NORMAL. F 
OUT.  F 
POISSON. F 
RANDOM. F 
REAl.F 
RbltP.F 
SFIELO.F 
SIGN.F 
SIN.  F 
SQRT.F 
TAN.F 
TRUNC.F 
TTOA.F 
UNIFORM. F 
WEEKDAY . F 
WE  I  BULL. F 
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Append  lx 

SIMSCRIPT  11  SYSTEM  MAKES 


CONSTANTS 

VARIABLES 

FUNCTIONS 

EXP.C 

BETWEEN. V 

ABS.F 

INF.  C 

BUFFER. V 

ARCCOS.F 

PI.C 

EOF.V 

ARCSIN.F 

RADI AN. C 

ARCTAN.F 

RINF.C 

EVENT. V 

ATOT.F 

EVENTS. V 

BINOMIAL. F 

HOURS. V 

CONCAT.F 

SETS 

LINE.V 

COS.F 

EV.S 

LINES. V 

DATE.F 

MARK. V 

DAY.F 

ENTITIES 

MINUTES. V 

DIM.F 

PAGE . V 

DIV.F 

RANDOM. E 

RCOLUMN.V 

EFIELD.F 

READ.V 

ERLANG. F 

ATTRIBUTES 

SEED.V 

EXP.F 

EUNIT.A 

TIME.V 

EXPONENTIAL. F 

WCOLUMN. V 

FRAC.F 

r.EV.S 

I VALUE. A 

WRITE. V 

GAMMA. F 

HOUR. F 

LENGTH. A 

INT.F 

M.EV.S 

ISTEP.F 

PROB.A 

ITOA.F 

P.EV.S 

LIN.  F 

RVALUE. A 

LOG.E.F 

S.EV.S 

LOG. NORMAL. F 

TIME. A 

LOG. TO. F 

MAX.  F 

ROUTINES 

MIN.  F 

ORIGIN. R 

MINUTE. F 

MOD.  F 

MONTH. F 

NORMAL . F 

OUT.  F 

POISSON. F 
RANDOM. F 

REAL .F 

RSTEP.F 

SFiELD.F 

SIGN.F 

SIN.  F 

SQRT.F 

TAN.  F 

TRUNC.F 

TTOA.F 
UNIFORM. F 
WEEKDAY. F 

WE IBULL.F 

year.f 
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INDEX 


NOTE:  Th«  letter  'n'  following  e  pege 
reference  indicates  a  footnote. 

The  letter  *t’  following  a  page  refer¬ 
ence  lndlcatee  tabular  material. 

Imbedded  perloda  have  been  ignored  for 
alphabetizing  purpoaea. 


A  format,  162 

ABS.F  function,  91c,  369f 

Abaoluta  time  apeclf icatlon,  301 

ACCUMULATE  atatement,  324 
computatlona,  329t 
dcflnad,  328 
DUMMY  variable,  335f. 
example,  339-340,  349 
initialization  of  countera,  332 f . 

Action  taken  when  no  eventa,  294 

Activity! 

defined,  282 
aconnlng,  364 
time  generation,  313 
ADD  atatement,  9f. 

ADVANCE  statement,  173 
A.EV.S  routine,  295 

AFTER  phrase  (time  specification),  301 

AFTER  atatement  (debugging) : 
arguments,  323c 
defined.  3221. 

Allocate  storage,  37 

eat  aleo  CREATE  statement;  RESERVE  statement 
ALPHA- 

attribute,  208 
example,  348 

format  descriptor  (A),  162 
function,  151 
literal,  151f. 
mode  defined,  1501. 
variable: 
declared,  151 
In  expressions,  151 
In  free-form  READ,  152 
In  LIST  ststement,  153 
In  PRINT  ststement,  153 

ALSO  FOR  statement,  133 

ALWAYS  statement,  14;  see  aleo  ELSE  statement 

Analysis  of  results,  324;  see  aleo  ACCUMULATE 
atateatent;  TALLY  stateawnt 

AND: 

comma,  6 


AND  (continued): 

logical  operator,  135 
prohibited  keyword,  29n 

Antithetic  variate,  313 
ARCCOS.F  function,  91t,  369t 
ARCS1N.F  function,  91t,  369' 

ARCTAN.F  function,  91t,  369t 

Argument,  84 

array  pointers,  103-104 

declaration  of  correct  number,  95,  101 

defined,  90 

of  an  event  notice,  311 
Input,  92f.,  95 
list,  84 
output : 

of  a  function,  93-94 
of  a  routine,  lOOf. 
variable  number  of,  95 

Arithmetic : 

expression,  2;  eta  aleo  Operator,  arithmetic 
Array: 

declared,  36f. 
defined,  33-37 
Initialization,  39 
In  LIST  stateaunt,  73f. 
mixed  mode,  63f. 
aiode,  35  * 

pointers : 

defined,  54-59 
as  routine  arguments,  103 
In  PRINT  statement,  48 
processing  efficiency,  64 
READ: 

controlled,  50f. 
free-form,  48f. 
reference,  34 

specif Icatlon  rules  for  attributes,  221 

storage: 

compression,  218-220 
release,  110 
usual,  37,  54-59 
structures,  54 

ragged  table,  58-64 
use,  40-44 
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AS  8INARY  phrase,  l/5f. 

AS  FOLLOWS  phrase,  17 

A.Mt  routine,  258t 

AMl|iwnt: 

of  attribute*,  219 
operator  (■),  9 
of  value*: 

by  LET  statement,  6f. 
by  READ  statement,  9f. 
without  conversion,  279f. 

Assumed  mode,  30 

Asterisk  (*) : 
format,  168 

In  PRINT  statement,  18 
In  RELEASE  statement,  llOff. 

In  RESERVE  statement,  37ff.,  54ff. 
used  In  a  subscript  position,  S8ff. 
eta  also  MARK.V  system  variable 

AT  phrase,  298,  300 

AT  LOCATION  line,  361 

3T0T.F  function,  276,  369t 

At, *<buter 

common,  19S,  220 
counter,  224 
defined,  194 
dimension,  208f. 
of  entitles,  19S 
permanent,  204 
temporary,  203 
equivalence,  211 Tf . 
of  event  notice,  288 
example,  234,  338t,  348 
as  functions,  222f. 
membership,  224 
mode,  208f. 
name  clause,  200t 
nar.lng  convention,  193 
opt  tonal,  234 
output,  246 

through  LIST  statement,  247 
packing,  211ff. 
reference,  194 
nested,  228 

of  permanent  entity,  203 
of  temporary  entity,  203 
relitlve  location,  193 
of  a  act,  196f. 
deletion  of,  234 

specification  to  word  or  array,  221 
ji  the  system: 
programmer-defined,  207 
system-defined,  369 t 
of  the  timing  routine,  294ff. 

AVERAGE  statistic: 

ACCUMULATE  statement,  379t 
COMPUTE  statement,  149t 
TALLY  statement,  325t 

B  format,  167 

BACK  FROM  clause,  173 

Background  conditions,  30;  see  NORMALLY  statement 

BACKSPACE  statement,  173 

Base  pointer: 
defined,  34-36 
symbol,  34 

shorthand  notation,  66 
eee  a.loo  Pointer 


Basic  symbolic  units,  10 

BEFORE  statement  (debugging): 
arguments,  323t 
defined,  323 
example,  339,  349 

BEGIN  HEADING  statement,  181 
BEGIN  REPORT  statement,  179 
Behavior  of  a  system,  282 
BELONG  TO  clause,  200 

BETWEEN, V  system  variable,  338,  369t 
example,  330 

Binary : 

external  event  data,  309 
Input/output,  173f. 

Binary  operators,  3;  aca  uiao  Operator 
BINOMIAL. F  function,  314,  369t 
Bit  packing,  212 
Blanks: 

when  required,  11 
Body  of  a  subprogram,  83 
Branching,  see  Transfer 

BREAK  TIES  statement: 
defined,  290 
example,  339 
prohibited  use  of,  293 

B.eet  routine,  238 

Buffer: 
defined,  136 
Internal,  178 
use  of,  176ff. 

THE  BUFFER,  178 

BUFFER. V  system  variable,  178,  369t 


C  format,  162 
Calendar  tine: 

conversion  functions,  302t,  307 1 
defined,  301-302 
format,  305 
origin,  306 

CALLED  FROM  line,  361 
CALL  ststement,  100 
Called  subprogram,  79 
Calling  subprogram,  79 

CANCEL  statement: 
defined,  303f. 

used  In  BEFORE  and  AFTER  statements,  323t 

CAUSE  statement: 
defined,  298 

used  in  BEFORE  and  AFTER  statements,  323t 
aee  alio  Scheduling 

C. entity  routine,  295 

Character  string: 

ALPHA,  150 
TEXT,  272 

output  format  (“  M) ,  168 

Class: 

of  entities,  194,  196 
of  events,  286 

CLOSE  statement,  173f. 
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Column  repetition)  18) 

Cormn,  6 

when  required,  11,  201,  233 
Comment.  12 

ettributee,  193,  220 
«et«,  220 

Complex  logical  expressions,  134 

Con pound : 
entitle*: 

example,  348 
nixed,  244 
permanent,  242 
tenporery,  244 
expressions: 
arithmetic,  3 
logical,  134 

Conpreeilon  of  array  atorage,  218 

COMPUTE  statement: 
defined,  147 
Hat,  147 

possible  atatlatical  names,  149 1 
renote  uae,  148 

Coaputed  GO  TO  atatement,  66 
Coaputer  language,  1 
Computer  program,  1  ’ 

Concatenation  of  TEXT,  273 
CONCAT.F  function,  273,  369c 

Conatant: 

defined,  2,  28 
reatrlctlon  to  size,  11 
of  the  ayatem,  369t 

Contlnuoua  time  simulation,  283 

Control : 

:ard*  foi  overlay,  143 
phraso,  jee  For  phraaea 

Control  lea  atatement,  44 

Contiguous  vjlues  In  PRINT  statement,  18f. 

Conversion: 

of  expression!;,  31ff. 
functions: 
mode,  276t 
time,  302 t,  307 t 
of  input  data,  32t 

for  RANDOM  probability  values  320 
of  output  data,  19t,  161 

COS.F  'unction,  91t,  369c 
Counter  attribute,  224 

CREATE  statement: 

for  compound  entities,  243 
example,  2 54 

fnr  permanent  entitles,  201 
for  temporary  entitles,  204 
used  In  BEFORE  and  AFTER  statements,  323t 

C.aet  routine,  238 

CSL  simulation  language,  364 

Cumulative: 

probabilities  for  sampling,  320 
statistics,  333 

Current : 
input : 

pointer,  177 

positioning,  167 


Current  (am timed'/ i 
unit,  134 
output  *. 

buffer,  177 
pointer,  177 

positioning,  167 
unit,  134 

D  format,  159 

Data: 

card  for  external  event,  287 

collection,  324 

editing: 

Internal,  178f. 

through  monitored  variables,  264 
for  external  event,  304ff. 
field,  8n,  156 
formats,  nee  Foimat 
for  free-form  READ,  7,  156 
Input  conversion,  32t 
look-ahead  properties,  77 1 
for  random  va-iables,  320 
record,  156 
stream,  156 
structure,  156 

DATE.F  function,  307t,  369t 

DAY.F  function,  307 1 ,  369t 

Day-hour-minute  format,  305 

DAYS  phrase,  301 

Debugging,  322ff.,  357 f f , 
nee  aleo  AFTER  statement 
BEFORE  statement 
BETWEEN. V  system  variable 
TRACE  statement 

Decimal ; 

format  descriptor  (D) ,  159 

number,  2,  30 

point: 

in  D  format,  150 
In  E  format,  160 
print  conventions,  19t 
time  units  format,  305 
nee  also  REAL 

Declaration: 
of  attributes: 
common,  195,  220 
dimensionality,  208f. 
of  an  entity,  195 
equivalence,  22 If . 
as  a  function,  222,  244 
mode,  208f.  , 

packing,  211ff. 
of  THE  SYSTEM,  207f. 
of  entitles,  195 
compound,  242 
permanent,  204 
temporary,  201 
of  event,  287 
of  event  notice,  288f. 
of  external  event,  292 
of  function,  93 
arguments,  95 
DYNAMIC,  144 
left-handed,  260 
RELEASABLE,  141 
of  set.  196,  224ff. 
compound,  243 
ranked,  233f. 

WITHOUT: 

attribute,  234 
routines,  259 
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Declaration  (continuzd! : 
of  variable. 

dimension,  35f J . 

DUMMY,  335f . 
mode: 

ALPHA,  151 
numeric,  30 
TEXT,  272f . 

MONITORED,  262f. 

RANDOM,  316 
SUBPROGRAM,  267 
type,  115 

see  also  DEFINE  statement;  EVERY  statement 

DEFINE  statement: 

DIMENSION,  36f . 

DUMMY,  335 
FUNCTION,  93 
arguments: 

Input,  95 
output,  100 

DYNAMIC,  144 
RELEASABLE,  141 
mode: 

ALPHA.  151 
numeric,  30 
TEXT,  272f. 

MONITORED.  262 
RANDOM,  317ff. 
set : 

ranked,  233 
WITHOUT: 

attributes,  234 
routines,  259 
SUBPROGRAM,  267 
type: 

RECURSIVE,  115 
SAVED,  115 

DEFINE  TO  MEAN  statement: 
defined,  120 
example,  173,  339,  356 
scope,  121 

Deletion: 

of  array,  110 
of  entitles: 
permanent,  206 
temporary;  204 
of  event  notice,  303f. 
of  routine,  14C 
of  set: 

attributes,  234 
routines,  257-259 
of  TEXT,  274 

DESTROY  statement: 
defined,  204 
example,  254 

used  with  BEFORE  and  AFTER  statements,  323t 

Device  name.  154 

Dictionary  of  TEXT : 
if  lned,  272,  274 
deletion  from,  2’4 
Inclusion  In,  2?3f- 

DIM.F  function,  66,  9lt,  369t 

Dimension: 
of  an  array: 
declaration,  35 
defined,  13 
froien,  3C 

incorrect  number,  39f. 
of  attribute,  209t 

Discrete-event  simulation,  281 


Distinct  labels,  67 

DIV.F  function,  91t,  369t 

DO  statement: 
defined,  51 
netted,  53 

simplified  by  ALSO  FOR  etatement,  132f. 

D.aet  routine.  258 
DUMMY: 

declaration,  335 
exampla,  349 

uaed  with  TALLY  and  ACCUMULATE  statement*,  335f. 
Duration  of  an  activity,  283 

Dynamic  storage  allocation: 
for  erraye : 

RELEASE,  llOf. 

RESERVE,  37 
for  counter*: 

RESET,  333 
for  routines: 
defined,  144 
overlay,  142ff. 

RELEASE,  140 
for  temporary  entitles: 

CREATE,  201f. 

DESTROY,  204 

Dynamic  structure,  339 
Dynamlci  of  a  .ystem,  282,  293f. 


E  format,  160 
Editing: 

Input  Information,  76f. 

Internal,  178f. 

output  Information,  177f. 

EFIELD.F  function,  77t,  91t,  369r. 

Element  of  an  array,  33 

ELSE  statement: 
defined,  14 
elimination  of,  131f. 
netted,  16 

End-of-f lie : 
condition,  174 
check  etetement,  174 
marker,  173 

End  of  simulation,  356 
END  statement: 

used  to  physically  terminate: 
heading  section,  181 
preamble,  30 
program,  21 
report  section,  179 
subprogram,  83 

Endogenoui  event,  286;  see  also  Internal  event 
ENTER  WITH  statement,  26! 

Entity: 

comon  attributes,  195,  220 
control  phrase,  236ff, 
declaration,  195 
defined,  194 
example,  371 

identif lcetlon  number,  202 
Index,  195,  205 
naming  convention*,  195 
owner,  196 
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Entity  ( continual) : 
paruntnt : 
creation,  201 
declaration,  204 
defined,  204 
deletion,  206 
global  variable,  206f. 
record,  19S 
logical,  196f. 
reference,  194 
neeted,  228 
permanent ,  205 
teaporery,  203 
-eet  relationship,  196f. 

declaration,  200t 
of  the  ayetem,  369 
temporary: 
creation,  201 
declaration,  201 
defined,  201 
deletion,  204 
global  variable,  202 

E0F.V  system  variable,  369t 
defined,  174 
example,  351 

Equivalent: 

ettrlbutee,  212 
labels,  67 

specifications,  221t 

ERASE  statement,  274 

ERLANG. F  function,  314t,  369t 

EUNIT.A  attribute,  288,  369t 
external  event  record,  292,  304 
Internal  event  record,  299 

Event : 

attributes,  299 
classes,  286 
codes,  358 
control,  296 
data  card,  304 
format,  305 
declaration,  287 
defined,  282 
example,  339 

external,  eee  External  event 
Internal,  eee  Internal  event 
notice,  eee  Event  notice 
occurrence,  285 
priority,  291,  293 
processing,  310 
routine,  283 

scheduling,  see  Scheduling 
simultaneous,  284 
ties,  290 
time  format: 
calendar,  305 
day-hour-minute,  305 
decimal  time  units,  305 
tracing,  357 
trigger,  292,  304 
definition,  287 
example,  352 

EVENT  IS  phrase,  2 87f. 

Event  notice: 

arguments,  311,  312 
attributes,  288 
manipulation  rules,  299 
programmer-defined,  299f. 
system-defined,  288 
declaration,  2881. 


Event  notice  (continued) : 
defined,  287f. 

by  INCLUDE  phrase,  288f. 
example,  349 

for  external  event,  292,  304 
global  variable,  310 
for  internal  event,  288 
priority,  290f.,  293 
SAVING  clause,  311 
scheduling,  eee  Scheduling 
statement,  288 

EVENTS. V  system  variable,  294,  369t 

EVENT. V  system  variable,  256,  358,  369t 

EVERT  statement: 

clauaes  used  In,  200 
defines: 

attribute,  195,  208f. 

assignment  to  words  and  arrays,  219,  221 

common,  195,  220 

DUMMY,  336 

function,  201,  209 

rules,  222 

class  of  objects,  194 
data  structure,  201 
event  notice,  288 
packing  and  equivalence: 
permanent,  215,  218 
system,  216,  218 
temporary,  213 
permanent  entity,  204 
set,  196 

global  variable,  206f. 
temporary  entity,  200 
form,  195,  200 

EV.S  set,  369t 
external  event ,  292 
internal  event,  288 
uae  by  timing  routine,  293ff. 

EXCEPT  WHEN  phrase,  138 

Exogenous  event,  286;  eee  also  -.eternal  event 

EXP.C  system  constant,  79t,  369t 

EXP.F  function,  91t,  369t 

EXPONENTIAL. F  function,  314t,  369t 

Expression: 

arithmetic,  2f. 
compound ,  3 

evaluation  with  functions,  89f. 
logical,  5,  75 
complex,  134ff. 
mixed  mode,  31 f . 
simple,  3 
time,  298 

External  event: 
attributes,  292 
binary  data,  309 
data  cards,  287,  292 
format,  305 

location  of  current  Input  pointer,  307f. 
pre-posltioning,  308 
declaration,  292 
defined.  286,  292 
event  notice,  292 
example,  349 
processing,  310 
unit,  292 

declaration,  292 

cXTERNAl  EVENTS  ARE  statement,  292 

EXTERNAL  EVENT  UNITS  statement,  292 
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F-EV.S  attribute,  369t 
uecd  by  timing  rout in*,  293ff. 
packing  rule ,  299 

Field: 

defined,  156 
pecking,  212 

in  PRINT  statement,  17ff.,  186ff. 
•uppreeelon,  189f. 

FIFO  declaration,  234 
File  routine*: 

generation  in  preamble,  257f. 
deletion  of,  258f. 

FILE  statement: 

AFTER,  225 
BEFORE,  225 
FIRST,  225 
LAST,  225 

used  in  BEFORE  and  AFTER  statements,  323t 
FIND  statement,  145 

First-ln-set  pointer,  197,  224 
for  RANDOM  variable,  320 

For  phrases: 

backward  Iteration,  46,  239 
controlling  00  loop,  51ff. 

THE  DICTIONARY,  274 
iteration: 

FOR  statement,  44 
modified: 

by  ALSO  phrase,  133 
by  logical  phrases,  137-140,  236f. 
nested,  46 

for  permanent  entities: 

FOR  ALL,  FOR  EACH  or  FOR  EVERY  statement 

for  acta: 

FOR  EACH  IN  Mt  statement,  238f. 
Forbidden  names,  29,  29n 
Format : 
conventions: 
free-form  READ,  7 
PRINT  statement,  19t 
descriptors.  157f.,  172t 

A,  162 

B,  167 

C,  162 
0,  159 
E,  160 
I,  158 

S,  168 

T,  273 
*,  168 
/.  168 
",  168 

for  external  event  data,  305 

Input,  output,  153f f . 

lines,  17,  20 

Hat,  157,  161 

for  RANDOM  variables,  320 

repetition,  170 

source  programs,  lOf . ,  129 

time.  305 f . 

FRAC.F  function,  91t,  369t 

Free-form: 

Input : 

INPUT  statement,  273 
aee  alec  READ  statement,  free-form 
input  data  format,  7,  156 
output : 

0U1PUT  statement,  275 
3ee  alec  LIST  statement 


Free  storage: 
erreya,  110 
character  strings,  274 
permanent  attributes,  206 
routines,  140 
temporary  attributes,  204 
Frequency  count,  330 
F.eet  attribute,  197,  224 
Function: 
attributes,  222 
example,  348 
called,  93 

compiled  In-line,  91n 
conversion,  276t 
declared,  93f. 
defined,  88 
left-handed: 
defined,  2fc0 
-ecelve  value-,  260f. 
library,  91t,  369t 
defined,  90 
mode  definition,  93 
monitoring,  263f. 
recursive,  H3ff. 

RETURN  statement,  93 
right-handed,  259f. 
of  the  system,  369t 
use  in  expression,  88 

F.variabU  attribute,  320 


GAMMA. F  function,  314,  369t 
236ff .  Generation  of  activity  times,  313 

GIVEN  clause: 
arguments,  95 
attributes,  299f. 

Global  variables: 
automatically  defined: 
event  notice,  310 
permanent  entltlee,  206f. 
temporary  entitles,  202 
defined,  84,  207 
example,  86 

in  recursive  routines,  114 
scope,  84 f . 
side  effects,  112 
of  the  system,  369t 

GO  TO  statement : 
computed.  66 
defined,  13 
subscripted  label,  69 

A  GROUP  OF  _  FIELDS  phrase,  1*7 

IN  GROUPS  OF  e  PER  PAGE  phrar.*,  185 

GSP  simulation  language,  364 


HAS  or  HAVE  clause,  200 
Heading  section,  181 
Histogram: 

ACCUMULATE  statement.  331 

example,  349 

TALLY  statement,  330 

HOUR.F  function,  302,  369t 
HOURS  phrase,  301 

HOURS. V  system  variable,  301,  369c 
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I  format,  158 

I. entity  system  variable,  295f.,  358 
Identification  number,  20? 

IF  FOUND  phraaa,  145 
IF  NONE  phraaa,  145 

IF  statement: 
defined,  13 

modified  by  THEN  phraaa,  131 
nesting,  18,  131 
optional  coaa,  16 
see  also  IS  phraaoa 

Implied' 

pointer  aaterlaka,  86 
aubacrlpta: 
for  attrlbutee,  244 
example,  353 

In  output  atataaanta,  246f. 
for  aata,  245 

IN  phraaaa: 

ARRAY  i,  221 
DAYS,  301 

THE  DICTIONARY,  274 
GROUPS,  185f . 

HOURS,  301 
MINUTES,  301 
REVERSE  ORDER,  239 
Mt,  232 
WORD  i.  219 

Imbedded : 
paranthaaca,  3 
periods,  28 

INCLUDE  atataaant: 
for  avant  not  Ice a,  289 
for  permanent  entltiea,  237 

Incremental  tine  expression,  301 
Independence  of  randon  numbers,  312 
Index: 

entity,  195,  205 
of  MAXIMUM,  149t 
of  MINIML'M,  149t 

Individual  probabllitlea: 
for  Sampling,  320 

INF.C  constant,  79t,  369t 

Inlt lallrat Ion : 
of  array,  39 
example,  351 
of  random  numbers,  312 
by  READ  statement,  7 
by  RESET  statement,  351 
routine,  351 

of  system  activities,  294 
of  system  state,  294 
of  variables,  2 

In-line  function: 
defined,  91n 
restrictions,  141n,  267n 

Input : 
binary,  175 
data  conversions,  32 1 
properties,  76,  77t 
to  a  routine,  b-. 
statements: 
formatted  READ: 
controlled,  15>ff, 
defined,  170 
TEXT,  272 


input  (continued) ; 

free-form  READ: 

ALPHA,  152 
array,  48f. 
controlled,  170 
daflnad,  of. 
randon,  ?20 
TEXT,  272 
INPUT.  2/3 

INPUT  statement,  273 

.’npit/output: 
devices,  155 

unit  characteristics,  157c 
INT.F  function,  91t,  276t,  369t 
INTEGER.  2 
defined,  30 

format  descriptor  (I),  158 
Input  conversion,  32t 
mode  conversion,  91t,  276 
print  conventions,  19t 
Internal : 
buffer,  178 
editing,  176 
event,  288f. 
defined,  286 
example,  349 

Interpolation  formula,  318 

Intra  packing,  212 
defined,  218f. 
example,  348 
IS: 

optional  use,  14 
phrases: 

ALPHA,  152 
EMPTY,  232 
ENDED,  77 
ENDOGENOUS,  286f 
EXOGENOUS,  286f. 

EXTERNAL,  287 
FALSE,  134 
FIRST,  182 
INTEGER,  77 
INTERNAL,  287 
LOADED,  144 
NEGATIVE,  75 
NEW,  77 
POSITIVE,  75 
REAL,  77 
IN  set,  23? 

TRUE,  134 
ZERO,  75 

ISTEP.F  function,  319t,  369t 
ITOA.F  function,  276,  369t 
IVALUE.A  attribute,  320,  369t 

Label : 
defined,  12 
local  property,  87 
name ,  28 
subscripted,  68 
Labeled  statement,  12 
LAST  C0LU7W  IS  statement,  129f. 
Last-ln-set  pointer,  197,  224 

Leading  rero  suppression: 

In  D  format,  159 
In  I  format,  158 
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Left-handed  function: 
declaration,  260 
defined,  259-262 
exaaple,  357 

uaed  for  data  collection,  3.'5 
uaed  for  monitoring,  264 

LEFT  ROUTINE  atateaent,  260 

LENGTH. A  attribute,  775,  369t 

LET  atateaent,  9 

Level  of  calling,  82 

Library  function*.  90,  91t,  369t 

LIFO  declaration,  234 

LIKE  THIS  phrase,  17 

Linear  interpolation  saapllng,  318 

LINES. V  aystca  variable,  181,  369t 

LINE.V  syatea  variable,  181,  369t 

LIN.F  function,  319t,  369t 

LIST  atateaent; 

ALPHA,  153 
array,  73f. 
attrlbutea,  247 
nuaerlc,  71ff. 

TEXT,  275 

Literal; 

ALPHA,  151 
constant,  2 
SUBPROGRAM,  267 
TEXT,  273 

LOAD  atateaent,  144 

Local: 

array: 

exaaple,  106 

RELEASE  atateaent  needed.  111 
variable: 

defined,  84f. 

Initialization,  87 
properties,  84 
RECURSIVE.  114 
SAVED,  114 
storage,  87 

LOG.E.F  function,  91t,  369t 
LOG. NORMAL. F  function,  314t,  369t 
LOG. 10. F  function,  91t,  369t 
Logical : 

control  operator  137 
control  phrase,  137 
end  of  prograa,  21 
entity  record,  196 
expression; 
complex,  134 
compound ,  134f. 
defined,  5 
simple,  5,  14 
see  also  IS  phrase 
operator,  135 

Look-ahead  properties: 

ALPHA,  152 
nuaerlc,  76 

LOOP  statement,  51 

L.aat  attribute,  197f . ,  224 


Macro  definition,  123 
Magnitude  of  numbers,  29 


MAIN: 

prograa,  80 
routine  exaaple,  349 
atateaent,  82 

MARK.V  systaa  variable,  369t 
defined,  273 

used  in  event  data  card,  305 
uaed  In  RANDOM  Input,  320 
used  In  TEXT  Input,  273 

MAX  statistic,  see  MAXIMUM  statistic 
MAX(e)  statistic,  149t 
MAX.F  function,  91t,  369t 

MAXIMUM  statistic: 

ACCUMULATE  statement,  329t 
COMPUTE  atateaent,  149t 
TALLY  atateaent,  325t 

MAXIMUM(e)  statistic.  149t 

MEAN  statistic,  see  AVERAGE  statistic 

MEAN. SQUARE  statistic: 

ACCUMULATE  atateaent,  329c 
COMPUTE  atateaent,  149t 
TALLY  atateaent,  325c 

Member  entity,  196 

Membership  attribute: 
defined,  224 

used  for  error  checking,  231f. 

Meaory  allocation,  37 

see  also  CREATE  statement;  RESERVE  atateaent 
M.EV.S  attribute,  369t 
externa1,  event,  292 
internal  event,  288 
packing  rule,  299 

MIN  statistic,  see  MINIMUM  statistic 
MIN(«)  statistic,  149t 
MIN.F  function.  91t,  369t 
Minimizing  storage: 

OUWY  in  TALLY  or  ACCUMULATE  statements.  335 
equivalence,  211-222 
packing,  211-222 

see  also  Dynamic  storuge  allocation 
MINIMUM  s tat lu tic : 

ACCUMULATE  statement,  329t 
COMPUTE  statement,  149t 
TALLY  atateaent,  325t 

hlNIMUM(e)  statistic,  149t 
MINUTE. F  function,  302,  369t 
MINUTES  specification,  301 
MINUTES. V  system  variable,  301,  369t 
Mixed  mode  expressions,  Ilf. 

M0D.F  function,  9it,  369t 

Mode,  29 
ALPHA,  150 
of  attributes,  208 
conversion: 
functions,  276 
of  Input  data,  32 
In  THE  BUFFER,  178 
of  an  expression,  3iff. 
of  a  function,  93 
INTEGER,  10 

normal  form,  30 
property  of  data,  77 
REAL,  30 
TEXT,  27? 


Monitored  variable,  262 
Monitoring: 
of  data,  264 
of  aventa,  357 

MONTH. F  function,  307,  369! 

MOVE  FROM  statement,  264 
MOVE  TO  statesMnt,  263f. 

M. eet  attribute,  224 

MSQ  atatlatlc,  see  MEAN . SQUARE  atatlatlc 

Name: 

attribute,  195 
defined,  28 
entity,  195 
forbidden,  29,  29n 
label,  28 
length,  11 
routine,  83 
ett,  201 

variable,  If. 

NEGATIVE  phraae,  75 

N.  entity  variable,  205,  206 
Nested: 

control  phrases,  46ff. 

DO  loopa.  53,  132 
entlcy  reference,  228 
IF  statement ,  16,  131 

NEXT  phrase,  303 
No  data: 

action  taken,  see  End-of-file 
No  eventa: 
action  taken,  294 

NORMAL. F  function,  3l4t.  369t 
Normal  form,  30 

NORMALLY  statement: 
dimensionality,  35f. 
mode,  30.  151,  272 
scope,  85tf. 
type,  115 

Notatlonal  aaterj.sk,  65 
NOW: 

phrase  (scheduling),  303 
Statement  (routine  call),  100 

N.eet  attribute,  224 

NIIM  statistic,  gee  NUMBER  statistic 

Number : 

of  characters  in  TEXT(LENGTH. A) ,  275 
of  elements  in  an  array  (OIM.F),  66 
of  entities  in  a  sec  attribute  (M.perj  224 
length,  11 

NUMBER  statistic: 

ACCUMULATE  atatenent,  329t 
COMPUTE  statement,  149t 
TALLY  statement,  325t 


Operator : 
arithmetic ; 
binary,  1 
defined,  2f. 
hierarchy,  4 
precedence  rule,  4 
unary,  1 


Operator  (continued): 

assignment,  9 
logical: 
defined,  135 
hierarchy,  135 
ralatlonal,  5 

Optional: 
aateriaka,  66 
attributes,  254f. 
blanks,  4 

comma,  11,  16,  30,  45 
control  element,  45 
end  of  consent,  12 
quotation  mark,  13 
CALLED  phrase,  202.  204 

OR: 

In  computed  GO  TO,  67 
logical  operator,  135 

Order  of  statements: 
in  preamble,  367t 

ORIGIN. R  system  routine,  306,  369t 

OTHERWISE  statement,  14;  see  also  ELSE  statement 

OUT.R  function,  369t 
defined,  177 

a  left-handed  function,  260 
Output : 

arguments,  100 

correct  number  defined,  101 
of  attributes,  246f. 
buffer,  177 

from  a  routine,  84,  93 
statements: 

CIST  statement,  see  LIST  statement 
OUTPUT  statement,  275 
PRINT  statement,  see  PRINT  statement 
WRITE  statement,  see  WRITE  statement 
of  a  TRACE  statement,  361 

Overlapping  packing  factors,  212 

Overlay  section,  142 

OVERLAY  SECTION  CONTAINS  statement,  143 

OWN  or  OWNS  clause,  200 

Owner  entity,  196 


Packing : 

hit,  212ff.,  213t 
defined,  211 
factor,  211 
field,  212ff . ,  213t 
intra,  212,  218ff. 
prohibited  use,  299 
specifications,  221 

PAGE  IS  FIRST  phrase,  182 
Page  numbering,  182 
PAGE.V  system  variable,  182,  369t 
Parallel  (,'); 

In  PRINT  statement,  !8f. 
enclosing  TEXT  literal,  273f. 
within  TEXT  literal,  2'4 

Parallel  Interaction,  363 

Parameters  of  statistical  diet r Ibut ions,  313 

Parentheses : 

in  arlthsietlc  expressions,  3 
Imbedded,  3 


Parentheses  (continued) : 

In  logical  expressions,  1)5 
rulaa,  3,  42 

PERFORM  statement,  100 

Parlodlc: 
raporta,  333 
atatlatlca,  333 

Parioda: 

Imbedded,  28f. 
terminal,  10 

Permanent  antltiaa: 

allocating  atoraga,  aaa  CREATE  statement 

attribute  Index,  205f. 

control  phrases,  236ff. 

declared,  204f. 

defined,  204 

destroying,  206 

example,  348 

global  variable,  206f. 

INCLUDE  atataaant,  237 
lndax,  205 

nuabar  of  (N. entity),  204 
raferanca,  205 
atataaant,  204 

P.EV.S  attribute,  369t 
external  want,  292 
internal  event,  288 
packing  rula,  299 

Phyalcal  and  of  prograa,  21 
Phvalcal  1/0  device,  154 
PI.C  conatant,  79t,  369t 

Pointer: 
for  arrays : 
advant agaa : 

arbitrary  atructurea,  58-64 
nixed  node  array,  63f. 
aultlpla  reservation*,  60 
baaa,  54-56 

ahorthand  notation,  66 
defined,  58 
lnltlallxatlon,  60 
node,  55 
reference,  58 
for  seta: 
coaaon,  220f. 
defined,  196f. 
deletion,  234 
vhen  re|ulred,  21  It 

POISSON. F  function,  314t,  369t 
POSITIVE  phraee,  75 
Preaable: 

allowable  etatenenta,  367t 
declaring: 

attrlbutea  of  the  ayatan,  207 

background  condltlona,  see  NORMALLY  atatenent 

debugging  capabilities,  see  AFTER  etatenent; 

BEFORE  statennnt 
entitles,  195 ,  201,  204 
event  notices,  288 

event  priorities,  see  PRIORITY  etatenent; 

BREAK  TIES  atatenent 
external  event,  292 
etternal  event  unit,  292 
global  variables,  84,  207 
sets,  196 

atstiatlcal  conputatlons,  see  ACCUMULATE 
atatenont;  TALLY  atatenent 
defined,  >0 
eaanple,  >48 


Preamble  •'  ton  t  i  nu*J  > : 
generation  of  routines: 
for  analysis,  325 
for  events,  295f. 
for  sets,  257f. 
atatenent ,  30 

Precision  of  numbers,  29n,  75 

Predecessor : 
entity,  197 
ln-tc*.  pointer,  224 

P'e-positloning  event  data,  308 

PRINT  atatenent: 
for  attributes,  246 
colunn  repetition,  18i 
colunn  suppression,  18V 
defined,  17 
double  lines,  ls4 
fotoat  conventions,  18,  19t 
group  repetition,  186 
for  reports,  179-192 

Priority: 

between  different  classes  cf  events 
PRIORITY  atatenent,  291,  793 
default  rule,  291 
effect  on  event  codes,  358 
within  an  event  claaa: 

BREAK  TIES  atatenent ,  290 
default  rule,  290 

PROB.A  attribute,  320,  369c 

Probabilities: 
cunulatlve,  320 
functions,  )14t 
generating,  313 
Individual.  320 

Procedure,  99;  see  also  Routine 

Process,  364 

Prograa: 
defined,  1 
overlay,  142 
relocation,  143 

Prograaaer,  1 

Prohibited : 
forms,  29 
word,  29n 

Property: 

of  Input  data,  77c 
logical,  75f. 

P.eet  attribute,  197,  224 

Pseudorandoa  mabera.  312 


Quotation  narks: 

doub  le  quotes  ( “  " ) . 

enclosing  ALPHA  literal,  152 
within  ALPHA  literal,  152 
format  descriptor,  168f . 
single  quotes  ( 1  ’ ) : 
label,  12 

aubprogran  literal,  268f . 
two  single  quotes  ( ' '  ' ' ) : 
comma,  12f. 

RADI AN. C  constant,  79t,  )69i 

Ragged  table: 
defined,  58f. 
example,  152 
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Random: 

number: 

defined,  312 

function  (RANDOM, F) ,  312 
argument,  312 
seed,  312 
stream,  312 

samples  from  statistical  diatrlbutlona,  313 
generating  functlona,  313,  314t 
argument,  313 
example,  315 

uaed  to  generate  activity  tinea,  313 
varlablea: 

conatructlon  of  act,  322 
declared,  316f, 

RANDOM  LINEAR  VARIABLE,  318 
RANOOM  STEP  VARIABLE,  317f. 
defined,  316 
example,  348,  352 
Tree-form  READ,  320,  322 
Input  format,  320 
prohibited  use,  319 
sampling  routines,  3 19 1 
generation,  319 
Inhibition,  319 
set,  320 
stored,  320 

RANDOM. £  entity,  320,  369t 
RANDOM. F  function,  312f.,  369t 
Range  of  FOR  statement,  44-45,  52 
Ranked  set,  233 
Ranking  function  example,  250 

RC0LUMN.V  system  variable,  369t 
defined,  177 

set  by  external  event,  310 

Read  binary,  175 

READ  statement: 
formatted: 

controlled,  170f. 
defined,  157 
descriptors,  158-168 
TEXT,  273 

unit  specification,  172 
variable  formats,  171 
free-form: 

ALPHA.  152 
for  arrays,  48ff. 
defined,  6f. 
card  format,  7 
controlled,  50 

look-ahead  properties,  76,  77t 
RANDOM  variables,  320 
TEXT,  272 

unit  specification,  172 

REA0.V  system  variable,  369t 
defined,  155 

set  by  external  event,  3 10 f . 

REAL,  2 

defined,  30 

format  descriptors  (D,  E) ,  159,  160 
Input  conversion,  32t 
mode  conversion,  91t,  276 
RANDOM  LINEAR  variables,  318 
see  also  Decimal 

REAL.F  function,  91t,  276,  369t 
Record,  156 

Recursion  concept,  113 


RECURSIVE: 

routines,  113f. 
global  variable,  114 
local  variable,  114 
variables,  1 1 4  f . 
declared,  115 
Initialized,  115f. 

Reference : 
array,  34 
attribute : 
nested,  228 

of  permanent  entity,  205 
of  temporary  entity,  203 

REGARDLESS  statement,  14;  see  alao  ELSE  statement 
Relational  operator,  5,  6t 
Relative  time  specification,  301 
Relative  location  of  attribute,  195 

RELEASE  statement: 
for  arrays,  110 

for  attributes  of  permanent  entitles,  206 
compound,  243 
for  routines,  140 

REMOVE  statement,  225 
FIRST,  231 
LAST,  231 
specific,  231 
THIS,  231 
ABOVE.  231 

used  In  BEFORE  and  AFTER  statements,  323t 
REPEAT  rtatement,  52 
Report: 

generator,  179 

column  repetition,  185 
DOUBLE  LINES,  184f. 
row  repetition,  179-181 
SUPPRESSING  clause,  190 
section,  179 
headings : 

printing  on  each  page,  lfel 
printing  on  first  page  only,  182 
NEW  PAGE,  183 

Required  set  attributes,  241t 

RESCHEDULE  statement,  298;  aee  also  Scheduling 

RESERVE  statement: 
defined,  37-40 
general  form,  64f. 
multiple  form,  60 
pointer  words  only,  65 

RESET  statement,  332f, 

RESUME  SUBSTITUTION  statement ,  121 

RETURN  statement:  ‘ 

In  an  event  routine,  308 
used  In  a  function,  93 
used  In  a  procedure,  99 

REVERSE  ORDER  phrase,  239 
REWIND  statement,  175 
Right-handed  function,  259f. 

RINF.C  constant,  79t,  369t 
R.nawr  routine,  332 

Rounding: 

in  D  format,  159 
input  conversions,  32 1 
In  library  functions  (1NT.F),  9 1 C 
output  conversions,  19t 
in  mode  conversions,  33 
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Routine  (Procedure): 

erfueente: 

errey  pointer#,  1031. 

Input,  9) 
output,  991. 
correct  nuaber,  101 
CALL,  100 
dellnod,  99 
DYNAMIC,  1431 . 

Concreted  by  eyetea: 
to  llle  event*,  2931. 
to  Initialize  counter*,  332 
to  manipulate  eetc,  258t 
tj  perform  saapllng  procedure*,  319t 
tlainc  lor  ilmuletion,  29411. 
monitored,  2631. 
recuralvc,  1131. 

RELEASE,  1401. 

RETURN,  99 
■tetement,  83 
ol  the  lyatea,  369 1 

u*ed  *■  both  ■  lunctlon  and  *  procedure,  1021. 

Row  repetition,  179-181 
RSTEP.F  lunctlon,  319c,  369t 
RVALUE. A  attribute,  320,  369t 
R.  variable  routine,  332 

S  format,  168 

Sam*  t la*  apecllicatlon ,  303 
Saapllng  package,  3121.,  314t 
SAVE: 

event  notice  (SAVING  phraae) ,  311 
routine  (SAVE  atateaent),  1431. 

SAVED: 

variable: 

defined,  1141. 

Initialisation,  116 
local  array,  337 
local  variable*,  113 

Scale  factor  In  E  format,  160 

Scheduling,  285,  364 
Internal  event*,  29611. 
reaoval  ol  event,  3031. 
atateaent: 

with  arguaenta,  2991. 
ualng  AT  phraaca,  2981. 
ualng  IN  phraaca,  3021. 
ualng  NOW  or  NEXT  phraaea,  303 
ualng  prevloualy  created  event  notice,  298 
•ynonyaa,  298 

used  In  BEFORE  eni  AFTER  atateaent*  (CAUSE),  323t 
Scientific  notation: 

conversion  In  LIST  atateaent,  741.,  74n,  75n 
I'ormat  conventions,  l?t 
loraat  descriptor,  160 
Sea.rch: 

atateaent  to  perfora  (FIND),  1451. 

SEE0.V  system  array,  312,  369t 
Selection  clause*,  1371.,  2361. 

Sequencing  programs,  1291. 

Set: 

attributes,  19611.,  224 
deletion,  234 
required,  241 

construction  lor  RANDOM  saapllng,  320 
control  phrase,  2381. 
declaration,  2231. 
defined,  196 


Set  (continued) : 

definition  atateaent,  233 

example,  338 

FILE  statement,  22311. 

Initial  condition,  223 
logical  expressions,  232 
member,  196 

membership  clause,  200 
modification  example,  348 
naae,  201 

operation  codes,  259 
organixatlon,  198 
owner,  196 

ownership  clause,  200 
pointers,  1961. 
properties,  224 
ranking,  233 
REMOVE  statement,  2301. 
routines: 

defined,  257,  258t 
deletion,  2581. 

of  the  system,  369t;  see  alto  EV.S  set 
used  for  RANDOM  sampling,  320 

S.EV.S  attribute,  369t 
external  event,  292 
internal  event,  288 
packing  rules,  299 

SFIELD.F  lunctlon,  77,  91t,  369t 

Side  effects: 

ol  functions,  113 
of  global  variables,  112 

SIGN.F  function,  91t,  369t 
Significant  figures,  75 
Simple  expressions,  3 
Simulation : 

basic  unit  of  action  (activity),  282f. 
central  concept  (eve  it),  2821. 
clock,  283 

continuous  time,  283 
control,  293f.,  364 
defined,  281 
discrete  event,  281,  283 
end  of,  294 
exaaple,  336-357 
initialization,  294 
languages,  364 
START  statement,  294,  304 
time,  2821. 

Simultaneous  event*,  284 

SIN.F  function,  91t,  369t 

SKIP  statement: 
defined,  71. 

FIELDS,  8 
INPUT  CARDS,  91. 

OUTPUT  LINES,  20 

Slash  (/)  in  format,  168 
Spaces: 

when  required,  11 

Special: 

characters,  10 
worda,  29 

SQRT.F  function,  91t,  369t 

S.eet  attribute,  197,  224 

SSQ  statistic,  tee  SUM. OF. SQUARES  statistic 

Standard  deviation,  tee  STD.OEV  statistic 

STD  statistic,  tee  STD.OEV  statistic 


STD. DEV  statistic: 

ACCUMULATE  ititiunt,  329t 
COMPUTE  ititiMnt,  149t 
TALLY  statement,  325 1 

Standard: 

input  unit,  15} 

for  external  eventa,  292 
output  unit,  155 

START  NEW  CARD  statement,  8 

START  NEW  PAGE  statement,  20 

START  SIMULATION  statement: 
defined,  294 
axaaple,  350 

achadullng  external  eventa,  304 
State  of  an  entity,  194 
State  probability  eetlmatlon,  33 1 f 

Statement : 
defined,  1 
rulea  for,  11 

Statement  label ,  ate  Label 

Static  atructure,  337 

Statlatlcal : 

dlatrlbutlono,  314t 
phenomena,  312 

Step  sampling,  317 
STOP  atataaent,  20f . 

Storage: 

of  arraya,  54 
of  attributea: 

of  permanent  cntltlee,  210 
of  the  eyatem,  211 
of  temporary  entltlea,  210 
of  sampling  data,  316f . 
of  aet  polntera,  211 
of  TEXT,  272 
without  conversion,  279 
see  also  Minimizing  storage 

STORE  statement,  279 
components,  280 t 

Stream  Input,  6f.,  272 

Structure,  58 

Subprogram: 
body,  83 
defined,  79 

definition  statement,  82 
««e  also  Function;  Routine 

SUBPROGRAM: 

function  calls,  269 
variable : 

defined,  267f. 
direct  use,  268 
Indirect  use,  268 
initialized,  269 
literal,  267 f . 

Subacrlpt,  34 

Subscripted: 
attrlbutee,  243 
label,  68 
sets,  243 
variable,  33 

Initialization,  39 
set  also  Array 

SUBSTITUTE  statement,  123 
SUBTRACT  statement,  9f. 


Successor-in-sat  pointer,  224 

SUM  atatlatic: 

ACCUMULATE  statement,  329t 
COMPUTE  statement,  149t 
TALLY  statement,  325t 

SUM. OF. SQUARES  statistic: 

ACCUMULATE  statement,  329t 
COMPUTE  statement,  149t 
TALLY  statement,  325t 
SUPPRESS  SUBSTITUTION  statement,  121 
SUPPRESSING  clause,  190 
S .variable  attribute,  320 
Symbol  table  of  TEXT,  272 
Synchronous  variables,  363 
Synonyms,  120 

System; 

attributes: 
defined,  207 
dimension,  207 
clock,  283 

-defined  constant,  78,  79t 
-defined  values,  76 
dynamics,  282,  293 
names,  369 1 
sat,  207 f . 

THE  S' STEM  statement,  207 


T  format: 

READ  statement,  273 
WRITE  statement,  275 

Table  look-up,  316f. 

TALLY: 

actions,  325 
computations,  329 
counters,  328 

initialization,  332f. 
defined,  324 
DUMMY  variable,  335 
example,  339,  349 
statement,  324 

TAN.F  function,  91t,  369t 

Temporary  entitles: 

allocate  storage  (CREATE),  201 
declaration,  201 
defined,  201f. 

return  storage  (DESTROY) ,  204 
example,  348 
global  variable,  201f. 
identification  number,  202 
reference,  203  , 

statement,  201 

Terminal  periods,  10,  229 

Termination  clause,  137f.,  236f. 

Termination  of  program: 
out  of  data,  13 
STOP  statement,  20 

TEXT: 

concatenation  of,  273 
conversion,  276t 
declared,  272 
defined,  272 
destroy,  274 
dictionary,  272,  274 
example,  351 
Input,  272f. 
length,  275 
list,  273 
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Text  (continued) i 
llc*r«l ,  273 
mode,  272 
output,  273 

THE  BUFFER.  178 
THE  SYSTEM  si-.tement,  207 
THEN  BY  clause ,  233,  290 
THEN  IF  statement,  131 
THUS  phrase,  17 
Tine : 

between  events,  282 

conversion  function*,  302t,  307 t 

expression,  298,  300,  302t 

formats,  3031. 

origin,  306 

serlea,  329 

at  start  of  simulation,  301,  306 
In  state,  332 
units,  301 

TIME. A  attribute,  288,  369t 
external  events,  292,  30 4 
Internal  events,  299 

Time-dependent  behavior,  282 
Time-dependent  variable,  328 
Timing: 

routine,  283,  294 

use  of  event  notice,  287 
set,  238 

TIME.V  system  variable,  301,  369t 
set  by  external  event,  310 
Initialized,  306 
set  by  Internal  event,  311 

TRACE: 

output,  361 
routine: 

example,  356 
statement,  360f.,  362 
use  of  BEFORE  and  AFTER  statements,  323t 

Transfer: 

computed  00  TO,  66 
GO  TO,  13 

IF  statesient,  13ff.,  16,  131 
True  branch,  16 
TRUNC.F  function,  91t,  369t 
TT0A.F  function,  276,  369t 
TYPE  statement,  115 


Unary  operators,  3 

Underscore  (_)  character: 

In  ALPHA  literal,  152 
In  TEXT  literal,  273 

UNIF0RH.F  function,  314t,  369t 
UNLESS  phrase,  137,  1391.,  236f. 

UNTIL  phrase,  137,  139f.,  236f. 
Updating  simulated  time,  300 
UPON  statement,  287 
USE  statement,  151,  178 
USING  phrase,  172,  175,  178,  362 

VAR  statistic,  ete  VARIANCE  statistic 


Variable: 
defined,  If. 

definition  statement,  29ff. 
dimension,  35 
forblddsn  form,  29,  29o 
global,  89 
Initialized,  2 
local,  84 

mode,  29f , ,  150,  272 
monitored,  262 
name,  If.,  28 
name  list,  6 
normal  mode,  30 
RANDOM,  316 
of  the  system,  369t 
type,  115 

Variable  formats,  171 
VARIANCE  statistic: 

ACCUMULATE  statement,  329 t 
COMPUTE  statement,  149 t 
TALLY  statement,  325t 

WCOLUMN.V  system  variable,  177,  369t 
WEEKDAY. F  function,  302,  369t 
WE  I  BULL. F  function,  314t,  369t 
WHEN  phrase,  138 
WHILE  phrase,  137ff.,  236f. 

WITH  clause  (set  membership),  232 

WITH  phrase  (logical  control),  137 f f . ,  236f. 

WITHOUT  ATTRIBUTES  phrase.  234 

WITHOUT  ROUTINES  phrase,  259 

Word,  120n 

WORD  specification: 
defined,  219 
I'xample,  348 
rulea,  221t 

World  view,  193 
Write  binary,  175 

WRITE  statement: 
attributes,  246f. 
controlled,  170 
defined,  157f. 

format  descriptors,  158-169,  275 
TEXT,  275 

WRITE. V  system  variable,  155,  369t 


X.EV.S  routine,  295f. 

X. aat  routine,  258 

4 

YEAR.F  function,  307,  369t 
YIELDING  clause,  100 

Y. aat  routine,  258 


Zero: 

initialization  to,  2,  39 
logical  condition,  75 
suppression,  158f. 
time  activities,  283 

Z.EV.S  routine,  295f. 

Z.aat  routine,  258 


DOCUMENT  CONTROL  DATA 

Jl  ORIGINATING  ACTIVITY 


2a.  REPORT  SECURITY  CLASSIFICATION 


THE  RAND  CORPORATION 


3.  REPORT  TITLE 

THE  SIMSCRIPT  II  PROGRAMMING  LANGUAGE 


4.  Al'V/lORCS)  (Lott  noma,  first  noma, initial) 

Kiviat,  P.  J.,  R.  Villanueva,  H.  M.  Markowitz 


2d.  (IRC 


5.  REPORT  DATE 

October  1968 


7.  CONTRACT  OR  GRANT  No. 

F446 20-67 -C-0045 


9o.  AVAILABILITY/  LIMITATION  NOTICES 


6o.  TOTAL  No.  OF  PAGES 

395 


8.  ORIGINATOR'S  REPORT  No. 
R-460-PR 


6b.  No.  OF  REFS. 


DDC-1 


10.  ABSTRACT 

A  user's  and  programmer's  manual  for 
SIMSCRIPT  II  that  requires  only  a  basic 
knowledge  of  computers  and  programming 
language  translators  (compilers).  Sec¬ 
tions  that  arc  unusually  difficult  or 
contain  features  of  limited  use  are  marked 
with  an  asterisk.  The  manual  is  divided 
into  five  chapters,  corresponding  to  five 
language  "levels."'  Level  1  is  a  teaching 
language  designed  to  introduce  programming 
concepts  to  nonprogrammers.  Level  2  is 
a  language  roughly  comparable  in  power 
to  FORTRAN,  but  departs  from  it  in  spe¬ 
cific  features.  Level  3  is  comparable  in 
power  to  ALGOL  or  PL/I,  but  with  specific 
differences,  and  contains  information  on 
the  new  ALPHA  mode  for  alpha-numeric 
manipulations,  on  writing  formatted  re¬ 
ports,  and  on  internal  editing.  Level 
4  contains  the  entity-attributc-set  fea¬ 
tures  of  SIMSCRIPT,  which  have  been  up¬ 
dated  and  augmented  to  provide  a  more 
powerful  list-processing  capability. 

Level  5,  the  simulation-oriented  part  of 
SIMSCRIPT  II,  contains  statements  for 
time  advance,  event  and  activity  process¬ 
ing,  generation  of  statistical  variates, 
and  accumulation  and  analysis  of  simula¬ 
tion-generated  data.  Two  new  debugging 
routines,  DEFORE  and  AFTER,  enable  the 
monitoring  of  six  complex  processes,  i  )  — 


9b.  SPONSORING  AGENCY 
United  States  Air  Force 
Project  RAND 


II.  KEY  WORDS 
SIMSCRIPT 

Computer  simulation 
Computer  programming  language 


